问题标题：
几道pascal题目（急）1．输入四个学生考试五门功课，要求按个人总分从高到低排列输出二维成绩表格。（即每行有学号，五科成绩及总分）2.输入学号从1101至1104的4名学生考试语文、数学、
问题描述：
几道pascal题目（急）
1．输入四个学生考试五门功课，要求按个人总分从高到低排列输出二维成绩表格。（即每行有学号，五科成绩及总分）
2.输入学号从1101至1104的4名学生考试语文、数学、化学、英语、计算机六门课的成绩，编程求出每名学生的平均分，按每名学生数据占一行的格式输出。
3.新录1、2、3三个工人，每人分配一个工种，每个工种只需一人，经测试，三人做某种工作的效率如下表所示。如何分配三人的工作才能使他们工作效益最大？
工人工种一二三
1433
2243
3452
蔡有元回答：
1、
typexx=record
k1,k2,k3,k4,k5,x,sum：longint；
end;
vara:array[1..4]ofxx;t:xx;i,j:longint;
begin
fori:=1to4do
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;
fori:=1to4do
forj:=i+1to4do
ifa[j].sum>a[i].sumthenbegint:=a[i];a[i]:=a[j];a[j]:=t;end;
fori:=1to4do
writeln(a[i].x,a[i].k1,a[i].k2,a[i].k3,a[i].k4,a[i].k5,a[i].sum);
end.
2、
vari,j,sum,x:longint;
begin
fori:=1to4do
begin
write(i,'');
forj:=1to6do
begin
read(x);
sum:=sum+x;
write(x,'');
end;
writeln(sum/6);
readln;
end;
end.
3、
vara:array[1..3,1..3]oflongint;
i,j,k,sum,max:longint;
begin
fori:=1to3do
readln(a[i,1],a[i,2],a[i,3]);
max:=-maxlongint;
fori:=1to3do
forj:=1to3do
fork:=1to3do
if(ij)and(jk)and(ik)then
begin
sum:=sum+a[1,i]+a[2,j]+a[3,k];
ifsum>maxthenbeginmax:=sum;writeln(1,'-',i,2,'-',j,3,'-',k);halt;end;
sum:=0;
end;
end.
网页上打的，很辛苦啊，求采纳
查看更多
