标签：blank 接下来 需要 get while amp long mst hub
乡间有一条笔直而长的路称为“米道”。沿着这条米道上 R 块稻田，每块稻田的坐标均
为一个 1 到 L 之间(含 1 和 L)的整数。这些稻田按照坐标以不减的顺序给出，即对于 0 ≤ i <
R，稻田 i 的坐标 X[i]满足 1 ≤ X[0] ≤ ... ≤ X[R-1] ≤ L。
注意：可能有多块稻田位于同一个坐标上。
我们计划建造一个米仓用于储存尽可能多的稻米。和稻田一样，米仓将建在米道上，其
坐标也是一个 1 到 L 之间的整数（含 1 和 L）。这个米仓可以建在满足上述条件的任一个位
置上，包括那些原来已有一个或多个稻田存在的位置。
在收获季节，每一块稻田刚好出产一滿货车的稻米。为了将这些稻米运到米仓，需要雇
用一位货车司机来运米。司机的收费是每一满货车运送一个单位的距离收取 1 元。換言之，
将稻米从特定的稻田运到米仓的费用在数值上等于稻田坐标与米仓坐标之差的绝对值。
不幸的是，今年预算有限，我们至多只能花费 B 元运费。你的任务是要帮我们找出一个
建造米仓的位置，可以收集到尽可能多的稻米。
第一行 三个整数 R L B
接下来R行 每行一个整数 表示X[i]
一个整数 最多稻米数
Source
var i,j:longint; r,l,ans,num,x,y,mid,b,n:int64; a,f:array[0..200000] of int64; function pd(mid:int64):boolean; var i,j:longint; m,sum:int64; begin for i:=1 to n-mid+1 do begin j:=i+mid-1; m:=(i+j) div 2; sum:=f[j]+f[i-1]-f[m]-f[m-1]+a[m]*(m-i)-a[m]*(j-m); //最重要的一句（记） if sum<=b then exit(true); end; exit(false); end; begin readln(n,y,b); for i:=1 to n do begin read(a[i]); f[i]:=f[i-1]+a[i]; end; l:=1; r:=n; while r>=l do begin mid:=(r+l) div 2; if pd(mid) then begin ans:=mid; l:=mid+1; end else r:=mid-1; end; writeln(ans); end.
标签：blank 接下来 需要 get while amp long mst hub
原文地址：http://www.cnblogs.com/hanyu20021030/p/6259827.html
