潘崇明 2016-02-11 23:16:57
点我顶贴
收藏
删除
var a:array[1..7,1..2] of 0..10;
i,j,max,x:longint;
begin
max:=0;
x:=0;
for i:=1 to 7 do
begin
for j:=1 to 2 do
read(a[i,j]);
if (a[i,1]+a[i,2]>max)
then begin
max:=a[i,1]+a[i,2];
x:=i;
end;
end;
writeln(x);
end.