作业帮 > 综合 > 作业

求平均数的pascal程序

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 12:29:38
求平均数的pascal程序
编译一个求平均成绩的程序
内容:输入10个数,去掉一个最大数,去掉一个最小数,求剩下8个数的平均数.
要求:用repeat语句写,或者while也可以
求平均数的pascal程序
var
i:longint;
s,max,min,t:real;
begin
repeat
i:=i+1;
read(t);
if i=1 then min:=t;
if maxt then min:=t;
s:=s+t;
until i=10;
s:=(s-min-max)/8;
writeln(s:0:4);
end.
自己写的 应该符合要求吧