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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 20:01:43

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

输入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.

var n,i,x,s,tot:longint;
a:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do begin read(a[i]); s:=a[i]+s; end;
x:=s div n;
for i:=1 to n do
tot:=tot+sqr(x-a[i]);
writeln(s,' ',x,' ',tot);
end.

sum:=0;
for i:=1 to n do
inc(sum,a[i]);
x:=sum / n ;

var
n,i,x,s,tot:longint;
a:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do begin read(a[i]); s:=a[i]+s; end;
x:=s div n;
for i:=1 to n do
tot:=tot+sqr(x-a[i]);
writeln(s,' ',x,' ',tot);
end.