作业帮 > 综合 > 作业

输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 05:18:08
输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal
求数据的方差,汗-_-|||
program fangcha;
var
\x05n,sum:integer
\x05x,s:real
\x05a:array[1..1000] of integer;
begin
\x05read(n);{读入n的值}
\x05sum:=0;{初始化sum的值}
\x05for i:=1 to n do
\x05begin
\x05 read(a[i]);{读入输入的n个整数}
\x05 sum:=sum+a[i];{为计算X求总和}
\x05end;
\x05x:=sum/n;{计算平均数X}
\x05s:=0;{初始化方差s的值}
\x05for i:=1 to n do
\x05begin
\x05 s:=s+sqr(a[i]-x);{计算方差}
\x05end;
\x05writeln(s);{输出S的值}
end.