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.
对这题有疑问的同学可以参考一下。。。。。。。
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0040 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.