【寒假任务】 洛谷1093 奖学金

问题描述

一波奖学金要给总分最高的5位同学，若总分相同则语文成绩高的排前面，若两个成绩都相同就按学号从小到大排序。

输入

第1行为一个正整数n，不超过300，表示该校参加评选的学生人数。

第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n（恰好是输入数据的行号减1）。

输出

输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。

样例输入

6

90 67 80

87 66 91

78 89 91

88 99 77

67 89 64

78 89 98

样例输出

6 265

4 264

3 258

2 244

1 237

算法讨论

比较简单，三关键字排序。时间复杂度O(n log n)。

const
maxn=300;
var
a:array[1..maxn,1..5] of longint;
i,j,n:longint;

procedure qsort(l,r:longint);
var
i,j,t,m,m1,m2:longint;
begin
i:=l; j:=r;
m:=a[(l+r) div 2,5];
m1:=a[(l+r) div 2,2];
m2:=a[(l+r) div 2,1];
repeat
while (a[i,5]>m) or ((a[i,5]=m) and (a[i,2]>m1)) or ((a[i,5]=m) and (a[i,2]=m1) and (a[i,1]<m2)) do
inc(i);
while (a[j,5]<m) or ((a[j,5]=m) and (a[j,2]<m1)) or ((a[j,5]=m) and (a[j,2]=m1) and (a[j,1]>m2)) do
dec(j);
if i<=j
then begin
t:=a[i,5]; a[i,5]:=a[j,5]; a[j,5]:=t;
t:=a[i,2]; a[i,2]:=a[j,2]; a[j,2]:=t;
t:=a[i,1]; a[i,1]:=a[j,1]; a[j,1]:=t;
inc(i); dec(j)
end;
until i>j;
if l<j
then qsort(l,j);
if i<r
then qsort(i,r)
end;

begin
read(n);
for i:=1 to n do
begin
a[i,1]:=i;
read(a[i,2],a[i,3],a[i,4]);
a[i,5]:=a[i,2]+a[i,3]+a[i,4]
end;
qsort(1,n);
for i:=1 to 5 do
writeln(a[i,1],' ',a[i,5])
end.

Pixiv ID：60013393