有点忘了,好久不动了.有错误请指正
一些指令忘了.
先建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.