chenke 2011-07-04 06:37:00
点我顶贴
收藏
删除
01.var i,a,b,z,max,tian:longint；
02.
c:array[1..7] of longint；
03.begin
04.
for i:=1 to 7 do
05.
begin
06.
readln(a,b)；
07.
c[i]:=a+b；
08.
if c[i]>8 then z:=z+1；
09.
if c[i]>max then
10.
begin
11.
max:=c[i]；
12.
tian:=i；
13.
end；
14.
end；
15.
if z=0 then writeln(z) else writeln(tian)；
16.end.