44 lines
796 B
ObjectPascal
44 lines
796 B
ObjectPascal
var n,i,j,p:integer;
|
|
c,m,e,s,x:array[1..500]of longint;
|
|
|
|
procedure setio;
|
|
begin
|
|
assign(input,'scholar.in');
|
|
reset(input);
|
|
assign(output,'scholar.out');
|
|
rewrite(output);
|
|
end;
|
|
procedure print;
|
|
begin
|
|
close(input);
|
|
close(output);
|
|
end;
|
|
procedure jh(var i,j:longint);
|
|
var t:longint;
|
|
begin
|
|
t:=i; i:=j; j:=t;
|
|
end;
|
|
begin
|
|
setio;
|
|
readln(n);
|
|
for i:=1 to n do
|
|
begin
|
|
readln(c[i],m[i],e[i]);
|
|
s[i]:=c[i]+m[i]+e[i];
|
|
end;
|
|
for i:=1 to n do x[i]:=i;
|
|
for i:=1 to n-1 do
|
|
begin
|
|
p:=i;
|
|
for j:=i+1 to n do
|
|
if (s[j]>s[p])or((s[j]=s[p])and(c[j]>c[p])) then p:=j;
|
|
jh(s[p],s[i]);
|
|
jh(x[p],x[i]);
|
|
jh(c[p],c[i]);
|
|
end;
|
|
for i:=1 to 5 do
|
|
writeln(x[i],' ',' ',s[i]);
|
|
print;
|
|
end.
|
|
|