学习者 2011-09-16 20:27:00
点我顶贴
收藏
删除
program shz;
var
i,a,b,c:integer;
d:array[1..7] of integer;
begin
for i:=1 to 7 do begin
readln(a,b);
d[i]:=a+b; end;
for i:=1 to 7 do
if d[i]>8 then begin
if d[i]>c then
c:=d[i]; end;
for i:= 1 to 7 do
if d[i]=c then begin c:=i; break; end;
write(c);
end.