a,b,c,d,e:array[1..10000]of longint;
max,i,j,m,n,k:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i],b[i],c[i]);
for i:=1 to n do
d[i]:=i;
for i:=1 to n do
e[i]:=a[i]+b[i]+c[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if e[i]<e[j] then
begin
m:=e[i];
e[i]:=e[j];
e[j]:=m;
m:=d[i];
d[i]:=d[j];
d[j]:=m;
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
if e[i]=e[j] then
begin
if a[i]<a[j] then
begin
m:=d[i];d[i]:=d[j];d[j]:=m;
end;
if a[i]=a[j] then
begin
m:=e[i];e[i]:=e[j];e[j]:=m;
end;
end;
for i:=1 to 5 do
writeln(d[i],' ',e[i]);
end.
哪里错了
var
a,b,c,d,e:array[1..10000]of longint;
max,i,j,m,n,k:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i],b[i],c[i]);
for i:=1 to n do
d[i]:=i;
for i:=1 to n do
e[i]:=a[i]+b[i]+c[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if e[i]<e[j] then
begin
m:=e[i];
e[i]:=e[j];
e[j]:=m;
m:=d[i];
d[i]:=d[j];
d[j]:=m;
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
if e[i]=e[j] then
begin
if a[i]<a[j] then
begin
m:=d[i];d[i]:=d[j];d[j]:=m;
end;
if a[i]=a[j] then
begin
m:=e[i];e[i]:=e[j];e[j]:=m;
end;
end;
for i:=1 to 5 do
writeln(d[i],' ',e[i]);
end.
var
a,b,c,d,e:array[1..10000]of longint;
max,i,j,m,n,k:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i],b[i],c[i]);
for i:=1 to n do
d[i]:=i;
for i:=1 to n do
e[i]:=a[i]+b[i]+c[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if e[i]<e[j] then
begin
m:=e[i];
e[i]:=e[j];
e[j]:=m;
m:=d[i];
d[i]:=d[j];
d[j]:=m;
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
if e[i]=e[j] then
if a[i]<a[j] then
begin
m:=d[i];d[i]:=d[j];d[j]:=m;
m:=e[i];e[i]:=e[j];e[j]:=m;
end;
for i:=1 to 5 do
writeln(d[i],' ',e[i]);
end.