2017.1.19【初中部 】普及组模拟赛C组 eko 题解

原题：

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.