xiaoyangr32 2012-08-03 06:34:00
点我顶贴
收藏
删除
program scholar;
var a,b,c,d,e,v,f:array[1..10000] of integer;
i,j,n,s,t:integer;
begin
read(n);
for i:=1 to n do
begin
readln(d[i],b[i],c[i]);
a[i]:=c[i]+b[i]+d[i];
e[i]:=a[i];
f[i]:=d[i];
end;
for i:=1 to n do
begin
for j:=1 to n do
if (a[j]<a[j+1]) then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
t:=d[j];
d[j]:=d[j+1];
d[j+1]:=t;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
if (a[i]=a[j]) then
if (d[j]<d[j+1]) then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end
end;
t:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i>5) then exit;
if (v[j]<>j) then
if (e[j]=a[i]) and (f[j]=d[i]) then
begin
writeln(j,' ',a[i]);
v[j]:=j;
break;
end;
end;
end;
end.
这是程序