- 不高兴的津津
-
zhshcheng1 LV 8 @ 2012-09-24 22:19:41
var
a,b,c,d:integer;
e:array[1..500] of integer;
begin
for a:=1 to 7 do begin
read(b,c);
e[a]:=b+c; end;
for a:=1 to 7 do
if e[a]>8 then
if e[1]
1 条评论
-
钱瑞QQ LV 8 @ 2014-07-25 15:01:25
var
i,s,sx,a,b:longint;
begin
s:=0;
sx:=8;
for i:=1 to 7 do
begin
readln (a,b);
if a+b>sx then
begin
sx:=a+b;
s:=i;
end;
end;
write (s);
end.
- 1
