原题:
http://172.16.0.132/junior/#contest/show/1369/2
题目描述:
小x最近终于不用干搬砖的活了,他成为了一名光荣的伐木工人。但伐木工人也不好当,他每天必须至少砍下M米的木材。但小x对此感到毫无压力,因为小y最近给他买了一台崭新的伐木机,可以像野火一样将森林摧毁。但这台伐木机实在太大了,它一次只能将一整排树木一起砍倒。
伐木机是这样工作的:小x设计一个参数H,然后伐木机将一排N个树木砍倒,然后得到每棵树高于H的部分。比如,有4棵树,高度分别为20,15,10,17米,而小x将H设为了15米。这样,他从第一棵得到了5m的木材,第四棵得到了2m的木材,一共是7m。当然,如果一棵树的高度不大于H,那么就不会被砍倒,也就不会留下木材。小x是个环保主义者,他希望H尽可能大,这样他砍倒的树木可以尽可能少。当然,前提是小x能至少得到M米木材。
输入:
第一行两个整数N,M,代表有N棵树,小x每天至少砍M米木材。
第二行N个整数Ai,代表每棵树的高度。
输出:
一行一个整数,代表所要求的最大高度。
样例输入:
4 7
20 15 10 17
样例输出:
15
数据范围限制:
对于30%的数据:1 ≤ N ≤1 000
对于100%的数据:
1 ≤ N ≤1 000 000
1 ≤ M ≤ 2 000 000 000
1 ≤ Ai ≤ 1 000 000 000
分析:
二分答案
实现:
var
i:longint;
n,m,high,low,ans,mid:int64;
a:array[0..1000001]of int64;
procedure pd;
var
i:longint;
begin
ans:=0;
for i:=1 to n do
if a[i]>mid then ans:=ans+a[i]-mid;
end;
begin
assign(input,'eko.in');reset(input);
assign(output,'eko.out');rewrite(output);
readln(n,m);
for i:=1 to n do
begin
read(a[i]);
if a[i]>high then high:=a[i];
end;
while low<>high do
begin
mid:=(low+high+1)div 2;
pd;
if ans>=m then low:=mid
else high:=mid-1;
end;
writeln(low);
close(input);close(output);
end.