O(5n)按題意排序，只需要保留前五名。var i,j,k,l,m,n,z:longint; a,b,c:array[1..5] of longint;begin readln(l); for i:=1 to l do begin readln(m,n,z); z:=z+n+m; k:=6; for j:=1 to 5 do if z>=a[k-1] then if z=a[k-1] then begin if m>c[k-1] then dec(k) else if (m=c[k-1])and(i<b[k-1])or(b[k-1]=0) then dec(k); end else dec(k); if k<=5 then begin for j:=5 downto k+1 do begin a[j]:=a[j-1]; b[j]:=b[j-1]; c[j]:=c[j-1]; end; a[k]:=z; b[k]:=i; c[k]:=m; end; end; for i:=1 to 5 do writeln(b[i],' ',a[i]);end.
