bzoj1816

这道题不是很难，二分答案+判定即可

注意在一套牌中Joker只能用一次

var a:array[0..51] of longint;
    mid,l,r,n,m,i,ans:longint;

function check(x:longint):boolean;
  var i,t:longint;
  begin
    t:=m;
    if t>x then t:=x;  //判定的关键
    for i:=1 to n do
      if a[i]<x then
      begin
        t:=t-x+a[i];
        if t<0 then exit(false);
      end;
    exit(true);
  end;

begin
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  l:=1;
  r:=1000000000;
  while l<=r do
  begin
    mid:=(l+r) shr 1;
    if check(mid) then
    begin
      ans:=mid;
      l:=mid+1;
    end
    else r:=mid-1;
  end;
  writeln(ans);
end.