百度作业网Free pascal：求均值（非计数型循环）
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/08/17 06:32:41
Free pascal：求均值（非计数型循环）
问题描述
输入一串正整数，以输入-1表示输入结束，计算这些数的均值，保留一位小数。
输入格式
输入数据只有一行，为各整数，最后一个数为-1。
输出格式
输出一行，包含一个数，保留1位小数。
样例输入
80 76 64 91 51 -1
样例输出
72.4
数据范围
输入的整数范围在1~100000000之间。
问题描述
输入一串正整数，以输入-1表示输入结束，计算这些数的均值，保留一位小数。
输入格式
输入数据只有一行，为各整数，最后一个数为-1。
输出格式
输出一行，包含一个数，保留1位小数。
样例输入
80 76 64 91 51 -1
样例输出
72.4
数据范围
输入的整数范围在1~100000000之间。
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.
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.