O(∩_∩)O钓丝 2013-04-10 03:20:00
点我顶贴
收藏
删除
program p20;
var
i,j,m:longint;
a,b,c:array[1..100]of longint;
begin
for i:=1 to 7 do
begin
readln(a[i],b[i]);
c[i]:=a[i]+b[i];
end;
for i:=1 to 7 do
if c[i]>m then
begin
m:=c[i];
j:=i;
end;
write(j);
end.