program jiangxujin;
var
a,b,j,n,i:integer;
c:array[0..300,1..5]of integer;
s:array[0..100000,1..3]of integer;
begin
readln(a);
for b :=1 to a do
readln(s,s,s);
for b:=1 to a do
if c[s+s+s,1]=0 then
begin
c[s+s+s,1]:=1;
c[s+s+s,2]:=s;
c[s+s+s,3]:=b;
end
else
if c[s+s+s,2]
1 条评论
-
LX11111 LV 10 @ 2009-10-17 10:13:45
var
s:array[1..2,1..300]of integer;
n,i,j,k,a,m,e:longint;
f:boolean;
begin
readln(n);
for i:=1 to n do
begin
readln(s[2,i],m,e);
s[1,i]:=s[2,i]+m+e;
end;
for i:=1 to 5 do
begin
k:=1;
for j:=k+1 to n do
if s[1,j]>s[1,k]then k:=j
else if (s[1,j]=s[1,k])and(s[2,j]>s[2,k])then k:=j;
writeln(k,' ',s[1,k]);
s[1,k]:=-1;
end;
end.
{AC}
- 1
