提交日期： 2013-9-1 12:42:00

有效耗时： 1454毫秒

测试结果1: 通过本测试点|有效耗时172ms

测试结果2: 通过本测试点|有效耗时172ms

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 通过本测试点|有效耗时188ms

测试结果5: 通过本测试点|有效耗时62ms

测试结果6: 通过本测试点|有效耗时172ms

测试结果7: 测试结果错误.错误结果为:45 292

10 292

130 292

171 276

143 276

正确结果应为:10 292

45 292

130 292

171 276

143 276

测试结果8: 通过本测试点|有效耗时172ms

测试结果9: 通过本测试点|有效耗时172ms

测试结果10: 通过本测试点|有效耗时172ms

提交代码： var

a:array[1..1000,1..3] of longint;

i,j,x,y,z,n,t:longint;

begin

readln(n);

for i:=1 to n do begin

readln(x,y,z);

a[i,1]:=x+y+z;a[i,2]:=x;a[i,3]:=i;

end;

for i:=n-1 downto 1 do

for j:=1 to i do

if a[j,1]>a[j+1,1] then begin

t:=a[j,1];a[j,1]:=a[j+1,1];a[j+1,1]:=t;

t:=a[j,2];a[j,2]:=a[j+1,2];a[j+1,2]:=t;

t:=a[j,3];a[j,3]:=a[j+1,3];a[j+1,3]:=t;

end;

for i:=n-1 downto 1 do

for j:=1 to i do

if (a[j,1]=a[j+1,1])and(a[j,2]>a[j+1,2]) then begin

t:=a[j,1];a[j,1]:=a[j+1,1];a[j+1,1]:=t;

t:=a[j,2];a[j,2]:=a[j+1,2];a[j+1,2]:=t;

t:=a[j,3];a[j,3]:=a[j+1,3];a[j+1,3]:=t;

end;

for i:=n-1 downto 1 do

for j:=1 to i do

if (a[j,1]=a[j+1,1])and(a[j,2]=a[j+1,2])and(a[j,3]>a[j+1,3]) then begin

t:=a[j,1];a[j,1]:=a[j+1,1];a[j+1,1]:=t;

t:=a[j,2];a[j,2]:=a[j+1,2];a[j+1,2]:=t;

t:=a[j,3];a[j,3]:=a[j+1,3];a[j+1,3]:=t;

end;

for i:=n downto n-4 do writeln(a[i,3],' ',a[i,1]);

end.