求N个同学的总分和平均分

admin 菜比学长想拿牌子 SU @ 2025-11-5 17:26:58

Pascal :

var
a,b,c,d:longint;
n:real;
begin
readln(a);
for b:=1 to a do
begin
read(c);
d:=d+c;
end;
n:=d/a;
writeln(d);
writeln(n:0:2);
end.

1 solutions