free pascal 奖学金题目
1个回答
{
我用了快排，用选择排序、冒泡排序也是可以的。
你写完了可以在http://www.***.cn/Problem_Show.asp?id=1130提交
}
var
n:longint; //学生数量
a,b,c:array [1..300] of longint; //用于保存数据
procedure init; //初始化
var i:longint;
begin
readln(n); //读入学生数量
for i:=1 to n do
begin
readln(a[i],b[i],c[i]); //读入语文、数学、英语成绩
b[i]:=a[i]+b[i]+c[i]; //数学成绩没多大用，替换为总成绩
c[i]:=i; //英语成绩没多大用，替换为学号
end;
end;
procedure swap(var a,b:longint); //交换a、b两个数的过程
var t:longint;
begin
t:=a;
a:=b;
b:=t;
end;
function check(a,b,c,d,e,f:longint):boolean; //用于快速排序过程中的判断
begin
if be then exit(true);
if ad then exit(true);
if c
