讨论 / pascal AC 原代码
潘崇明 2016-02-12 15:16:57
点我顶贴 收藏 删除
var a:array[1..7,1..2] of 0..10;

i,j,max,x:longint;

begin

max:=0;

x:=0;

for i:=1 to 7 do

begin

for j:=1 to 2 do

read(a[i,j]);

if (a[i,1]+a[i,2]>max)

then begin

max:=a[i,1]+a[i,2];

x:=i;

end;

end;

writeln(x);

end.

查看更多回复
提交回复