Freepascal：求均值（非计数型循环）问题描述输入一串正整数，以输入-1表示输入结束，计算这些数的均值，保留一位小数。输入格式输入数据只有一行，为各整数，最后一个数为-1。输出格

Question

Free pascal：求均值（非计数型循环）
问题描述
输入一串正整数，以输入-1表示输入结束，计算这些数的均值，保留一位小数。
输入格式
输入数据只有一行，为各整数，最后一个数为-1。
输出格式
输出一行，包含一个数，保留1位小数。　　
样例输入
80 76 64 91 51 -1

样例输出
72.4

数据范围
输入的整数范围在1~100000000之间。

Answer 1

program test;
var
i,j:int64;
ans:extended;
begin
while true do //直接读入
begin
read(i);
if i=-1 then break; //读到-1就退出
inc(j); //用j记录个数
ans:=ans+i;
end;
ans:=ans/j; //计算平均值
write(ans:0:1);
end.