几道pascal题目（急）1．输入四个学生考试五门功课，要求按个人总分从高到低排列输出二维成绩表格。（即每行有学号，五科成绩及总分）2.输入学号从1101至1104的4名学生考试语文、数学、

Question

几道pascal题目（急）
1．输入四个学生考试五门功课，要求按个人总分从高到低排列输出二维成绩表格。（即每行有学号，五科成绩及总分）
2.输入学号从1101 至1104的4名学生考试语文、数学、化学、英语、计算机六门课的成绩，编程求出每名学生的平均分，按每名学生数据占一行的格式输出。
3. 新录1、2、3三个工人，每人分配一个工种，每个工种只需一人，经测试，三人做某种工作的效率如下表所示。如何分配三人的工作才能使他们工作效益最大？
工人 工种 一 二 三
1 4 3 3
2 2 4 3
3 4 5 2

Answer 1

1、
type xx=record
k1,k2,k3,k4,k5,x,sum：longint；
end;
var a:array[1..4] of xx; t:xx; i,j:longint;
begin
for i:=1 to 4 do
begin
readln(a[i].k1,a[i].k2,a[i].k3,a[i].k4,a[i].k5);
a[i].x:=i;
a[i].sum:=a[i].k1+a[i].k2+a[i].k3+a[i].k4+a[i].k5;
end;
for i:=1 to 4 do
for j:=i+1 to 4 do
if a[j].sum>a[i].sum then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to 4 do
writeln(a[i].x,a[i].k1,a[i].k2,a[i].k3,a[i].k4,a[i].k5,a[i].sum);
end.
2、
var i,j,sum,x:longint;
begin
for i:=1 to 4 do
begin
write(i,' ');
for j:=1 to 6 do
begin
read(x);
sum:=sum+x;
write(x,' ');
end;
writeln(sum/6);
readln;
end;
end.
3、
var a:array[1..3,1..3] of longint;
i,j,k,sum,max:longint;
begin
for i:=1 to 3 do
readln(a[i,1],a[i,2],a[i,3]);
max:=-maxlongint;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if (i<>j)and(j<>k)and(i<>k) then
begin
sum:=sum+a[1,i]+a[2,j]+a[3,k];
if sum>max then begin max:=sum; writeln(1,'-',i,2,'-',j,3,'-',k); halt; end;
sum:=0;
end;
end.
网页上打的，很辛苦啊，求采纳