Question

pascal题目跪求程序

某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:
7 279

5 279
这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:
5 279

7 279
则按输出错误处理，不能得分。

Answer 1

这似乎是经典的奖学金问题，数据挺弱，冒泡排序就行。
var n,i,j,p:integer;
c,m,e,s,x:array[1..500]of longint;
procedure jh(var i,j:longint);
var t:longint;
begin
t:=i; i:=j; j:=t;
end;
begin
setio;
readln(n);
for i:=1 to n do
begin
readln(c[i],m[i],e[i]);
s[i]:=c[i]+m[i]+e[i];
end;
for i:=1 to n do x[i]:=i;
for i:=1 to n-1 do
begin
p:=i;
for j:=i+1 to n do
if (s[j]>s[p])or((s[j]=s[p])and(c[j]>c[p])) then p:=j;
jh(s[p],s[i]);
jh(x[p],x[i]);
jh(c[p],c[i]);
end;
for i:=1 to 5 do
writeln(x[i],' ',' ',s[i]);
print;
end.

追问

不是 你仔细看 老师把题目改动了

追答

没改呀，不一样的吗？

追问

兄弟 江湖救急啊

追答

一样的，
原题：某小学最近得到 了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两 个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。

任 务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相 同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：

7 279

5 279

这两行数据的含义是：总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279（总分等于输入的语文、数学、英语三科成绩之和），但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是：

5 279

7 279

则按输出错误处理，不能得分。

输入描述

包含n+1行：

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

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

输出描述

共有5行，每行是两个用空格隔开的正整数, 依次表示前5名学生的学号和总分。

样例输入

10
78 44 40
91 91 83
98 51 54
61 88 33
77 46 83
76 93 67
66 68 61
76 35 69
68 79 36
90 90 84
样例输出

2 265
10 264
6 236
5 206
3 203
提示 ：
来源 ：
NOIP2007
你测以下样例就行