wsxtyrdd2009 2010-07-28 02:20:00
点我顶贴
收藏
删除
type q=record
a,b,c,d:integer;
end;
var j,t,i,n,s,z:integer;a:array[1..10000] of q; b:array[1..10000] of integer;
begin
read(n);
for i:=1 to n do
begin
a[i].a:=i;
read(a[i].b,a[i].c,a[i].d);
b[i]:=a[i].d+a[i].b+a[i].c;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
begin
t:=b[i];b[i]:=b[j];b[j]:=t;
t:=a[i].a;a[i].a:=a[j].a;a[j].a:=t;
t:=a[i].b;a[i].b:=a[j].b;a[j].b:=t;
end;
for i:=1 to n do
begin
for j:=i+1 to n do
begin
if b[i]=b[j] then
begin
if a[j].b>a[i].b then
begin
t:=a[j].b;a[j].b:=a[i].b;a[i].b:=t;
t:=b[j];b[j]:=b[i];b[i]:=t;
t:=a[j].a;a[j].a:=a[i].a;a[i].a:=t;
end;
if a[i].b=a[j].b then
begin
if a[j].a<a[i].a then
begin
t:=b[j];b[j]:=b[i];b[i]:=t;
t:=a[j].a;a[j].a:=a[i].a;a[i].a:=t;
end;
end;
end;
end;
end;
for i:=1 to 5 do
writeln(a[i].a,' ',b[i]);
end.