nxy-2 2013-07-18 02:41:00
点我顶贴
收藏
删除
大家看看，哪错了？
var a,b,c,d,e:array[1..100] of integer;
n,i,j:integer;
procedure swap(var a,b:integer);
var t:integer;
begin
t:=a;
a:=b;
b:=t;
end;
begin
read(n);
for i:=1 to n do
begin
read(a[i],b[i],c[i]);
d[i]:=a[i]+b[i]+c[i];
e[i]:=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if d[i]<d[j] then
begin
swap(a[i],a[j]);
swap(b[i],b[j]);
swap(c[i],c[j]);
swap(d[i],d[j]);
swap(e[i],e[j]);
end
else
if d[i]=d[j] then
begin
if a[i]<a[j] then
begin
swap(a[i],a[j]);
swap(b[i],b[j]);
swap(c[i],c[j]);
swap(d[i],d[j]);
swap(e[i],e[j]);
end;
end
else
if a[i]=a[j] then
if e[i]>e[j] then
begin
swap(a[i],a[j]);
swap(b[i],b[j]);
swap(c[i],c[j]);
swap(d[i],d[j]);
swap(e[i],e[j]);
end;
for i:=1 to 5 do
writeln(e[i],' ',d[i]);
end.