测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时63:ms
测试结果5: 测试结果错误.错误结果为:66 276
101 270
88 270
19 270
93 267
正确结果应为:66 276
88 270
19 270
101 270
93 267
测试结果6: 通过本测试点|有效耗时156:ms
测试结果7: 测试结果错误.错误结果为:130 292
45 292
10 292
171 276
143 276
正确结果应为:10 292
45 292
130 292
171 276
143 276
测试结果8: 测试结果错误.错误结果为:93 280
13 280
26 275
136 273
140 271
正确结果应为:13 280
93 280
26 275
136 273
140 271
测试结果9: 通过本测试点|有效耗时156:ms
测试结果10: 通过本测试点|有效耗时47:ms
提交代码: var n,i,j,k:integer;
a,b,c,d,s:array[1..1000]of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i],b[i],c[i]);
s[i]:=a[i]+b[i]+c[i];
d[i]:=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if s[i]<s[j] then begin k:=s[i];s[i]:=s[j];s[j]:=k;k:=d[i];d[i]:=d[j];d[j]:=k;end;
if s[i]=s[j] then if a[i]<a[j] then begin k:=s[i];s[i]:=s[j];s[j]:=k;k:=d[i];d[i]:=d[j];d[j]:=k;end;
if (s[i]=s[j])and(a[i]=a[j]) then if d[i]>d[j] then begin k:=s[i];s[i]:=s[j];s[j]:=k;k:=d[i];d[i]:=d[j];d[j]:=k;end;
end;
for i:=1 to 5 do
writeln(d[i],’ ’,s[i]);
end.