jbjw 2016-06-14 02:15:57
点我顶贴
收藏
删除
Program GVJ_9;
Var
A:array[1..10] of integer;
S:array[1..10] of integer;
C:array[1..1000] of integer;
m,n,i,j:integer;
Begin
for i:=1 to 7 do
readln(A[i],S[i]);
for i:=1 to 7 do
C[i]:=A[i]+S[i];
for i:=1 to 7 do
begin
if C[i]>8 then
break;
end;
writeln(i);
end.