学习者 2011-09-16 20:19: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
c:=i; break; end;
write(c);
end.
人品爆发！对了！！！！