【NOIP2016练习】T1 挖金矿（二分答案）

题意：

思路：二分答案A

        合法的答案 sigma(s[i][xi])/sigma(xi)>=a i<=m

                       sigma(s[i][xi]-a*xi)>=0 

                       对于每个i找到xi使s[i][xi]-a*xi最大累加验证答案即可

var a,s:array[1..100000]of int64;
    n,m,i,j:longint;
    l,r,mid,last:real;

function isok(a:real):boolean;
var i,j:longint;
    t,tmp:real;
begin
 tmp:=0;
 for i:=1 to n do
 begin
  t:=s[(i-1)*m+1]-a;
  for j:=2 to m do
   if s[(i-1)*m+j]-a*j>t then t:=s[(i-1)*m+j]-a*j;
  tmp:=tmp+t;
 end;
 if tmp>=0 then exit(true)
  else exit(false);
end;

begin
 assign(input,'gold.in'); reset(input);
 assign(output,'gold.out'); rewrite(output);
 readln(n,m);
 for i:=1 to n*m do read(a[i]);
 for i:=1 to n do
 begin
  s[(i-1)*m+1]:=a[(i-1)*m+1];
  for j:=2 to m do s[(i-1)*m+j]:=s[(i-1)*m+j-1]+a[(i-1)*m+j];
 end;
 l:=0; r:=1000000000; last:=0;
 while r-l>1e-5 do
 begin
  mid:=(l+r)/2;
  if isok(mid) then begin last:=mid; l:=mid; end
   else r:=mid;
 end;
 writeln(last:0:4);
 close(input);
 close(output);
end.