用Turbo pascal编一个程序 急需啊！！（只写出代码即可）

来源：百度知道 编辑：UC知道 时间：2024/04/27 14:14:14
用Turbo pascal编一个程序 急！！要求：编写一个考试统计程序，并为每一个考生建立数据库（考号从1－55），有数学，英语，物理，化学四科，在输入每一个考生的四科成绩后（共55名考生），显示如下几条：此考生平均分，此考生总分，此考生在55人中总名次排名，每一科在55人中
的排名，全部考生的总分，全部考生的平均分，等级（100－85a级，84－75b级，74－60c级，60以下d级）。

program mark;
var math,english,geography,huaxue:array [1..55] of longint;
temp:longint;
procedure sort(var pa,pb:longint);
var temp:longint;
begin
temp:=pa;
pa:=pb;
pb:=temp;
end;
begin
for i:=1 to 55 do
readln(math[i],english[i],geography[i],huaxue[i]);
for i:=1 to 55 do
for j:=i+1 to 55 do
排序过程；
判断等级，平均分
输出；
end.
搞定