ac1070.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 27 行

program tju1070;
const
  maxn=100000;
var
  more:array[1..maxn]of longint;
  t,u,n,i,x,y:longint;
  now,min:int64;
begin
  read(t);
  for u:=1 to t do begin
    read(n);now:=0;
    for i:=1 to n do begin
      read(x,y);
      more[i]:=x-y;
      inc(now,more[i]);
      if (i=1) or (now<min) then min:=now;
    end;

    if min<0 then begin x:=0;y:=0;end else begin x:=1;y:=1;end;
    for i:=2 to n do begin
      dec(min,more[i-1]);
      if min>=0 then begin inc(x);if y=0 then y:=i;end;
    end;
    writeln(x,' ',y);
  end;
end.