2017年9月9日普级组 买礼物的艰辛

Description

小X同学给小C同学选了N件礼物，决定顺序购买并赠送，但作为一个没有工资没有零花钱的可怜小朋友，有M位好心的同学伸出了援助之手，然而为了减少最高的借款量，小X同学希望OI竞赛的你为他合理规划，使得他能轻松快乐地送出礼物。

Input

第一行输入两个用空格隔开的正整数N和M
以下N行每行一个不超过10000正整数，依次表示礼物的价格。

Output

一个整数，即最高借款量。

Sample Input

7 5
100
400
300
100
500
101
400

Sample Output

500

Hint

数据范围：
30%：n <=10
60%: n<=1000
100%: n<=100000

程序：

var a:array[0..200000]of longint;
    n,m,i,l,r,mid,t,s:longint;
begin
  readln(n,m);  l:=0;
  for i:=1 to n do
    begin
      readln(a[i]);
      if a[i]>l then l:=a[i];
    end;
  l:=l-1; r:=maxlongint div 2;
  while l+1<r do
    begin
      mid:=(l+r) div 2;
      t:=0; s:=0;
      for i:=1 to n do
        begin
          if s+a[i]>mid then begin inc(t); s:=0; end;
          s:=s+a[i];
        end;
      if t>m then l:=mid else r:=mid;
   end;
  writeln(r);
end.