作业帮 > 综合 > 作业

pascal求平均数(三)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 09:56:03
pascal求平均数(三)
Description输入n个数,求出这些数的平均数.
Input只有一行共有n个数,数与数之间用一个空格隔开
(1
可以用while not eof() do 做
再问: 可以把程序写出来吗?
再答: program xxx; var n,t:real; var i:integer; begin n:=0; i:=0; while not eof() do begin read(t); n:=n+t; i:=i+1; end; writeln(n/i:0:4); end. 只能用文件读入读出