ave.pas

pascal的编译器 交作业没问题

//求平均数

sum:=0;
s2:=4;
n:=0;
average:=0;
repeat
  read x;
  sum:=sum+x;
  n:=n+1
until x=0;    //输入0结束输入
if 1<n then  
   average:=sum/(n-1)
else
   average:=0
end;
write average