Tyvj 1130 奖学金

6 265

4 264

3 258

2 244

1 237

type
act=record
id,x,ch:longint;
end;
var
a:array[0..310]of act;
i,n,t:longint;
procedure qsort(l,r:longint);
var
i,j:longint;
k,t:act;
begin
i:=l;j:=r;
k:=a[(l+r) shr 1];
repeat
while(a[i].x>k.x)or((a[i].x=k.x)and(a[i].ch>k.ch))or((a[i].x=k.x)and(a[i].ch=k.ch)and(a[i].id>k.id))  do inc(i);
while(a[j].x<k.x)or((a[j].x=k.x)and(a[j].ch<k.ch))or((a[j].x=k.x)and(a[j].ch=k.ch)and(a[j].id>k.id))  do dec(j);
ifi<=j then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
inc(i);dec(j);
end;
until i>j;
ifi<r then qsort(i,r);
ifj>l then qsort(l,j);
end;
begin
readln(n);
fori:=1 to n do
begin
read(a[i].ch);
read(t);
inc(a[i].x,t);
inc(a[i].x,a[i].ch);
readln(t);
inc(a[i].x,t);
a[i].id:=i;
end;
qsort(1,n);
fori:=1 to 5 do
begin
writeln(a[i].id,' ',a[i].x);
end;
end.