比赛 20140321 评测结果 WWWAAWWWWW
题目名称 行动开始 最终得分 20
用户昵称 第三十八年夏至 运行时间 0.646 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-03-21 20:58:08
显示代码纯文本
program ex_1;
var a,b,c,n,i,total,temp:longint;
    j:boolean;
begin
  assign(input,'goz.in'); reset(input);
  assign(output,'goz.out'); rewrite(output);
  readln(n);
  j:=false; temp:=maxlongint;
  for i:=1 to n do
  begin
    readln(a,b);
    if a>=b then begin
                   total:=total+a;
                   j:=true;
                 end
    else begin
           total:=total+b;
           c:=b-a;
           if c<temp then temp:=c;
         end;
  end;
  if j then writeln(total)
       else writeln(total-c);
  close(input); close(output);
end.