tzh 2010-08-04 06:21:00
点我顶贴
收藏
删除
program t20;
var
b,c,d,e,f,g:integer;
begin
e:=0;
for b:=1 to 7 do begin read(c,d);f:=c+d;if f>e then begin e:=f;g:=b;end;end;
if e>8 then write(g) else write(0);
end.
对这题有疑问的同学可以参考一下。。。。。。。