1、输入班级中每个学生的数学、英语、物理成绩,求出每个人的总分、以及各科的平均分.第一行:n(人数

问题描述:

1、输入班级中每个学生的数学、英语、物理成绩,求出每个人的总分、以及各科的平均分.
第一行:n(人数

有点忘了,好久不动了.有错误请指正
一些指令忘了.
先建3个数据组,a[1..60],b[1..60],c[1..60](这个我忘了怎么建了……)
begin
read (n);
for i=1 to n do
begin
read a[i];
read b[i];
read c[i];
end;
sum:=0;o:=0;p:=0;q:=0;
for i=1 to n do
begin
sum:=sum+a[i]+b[i]+c[i];
o:=o+a[i];
p:=p+b[i];
q:=q+c[i];
end;
o:=o/n;
p:=p/n;
q:=q/n;
writeln(sum);
write (o,' ',p,' ',q,' ');
end.