program average;
uses math;
 
var
p, sum, n, i: integer;
av, variance, stddev: real;
data: array[1..1000] of integer;
 
begin
sum := 0;
n := 0;
 
writeln('データの個数を入力してください:');
readln(n);
 
writeln('データを ', n, ' 個入力してください:');
for i := 1 to n do
begin
readln(p);
data[i] := p;
sum := sum + p;
end;
 
av := sum / n;
 
variance := 0;
for i := 1 to n do
variance := variance + sqr(data[i] - av);
 
variance := variance / n;
stddev := sqrt(variance);
 
writeln('合計=', sum, ' 件数=', n, ' 平均=', av:4:2);
writeln('標準偏差=', stddev:4:2);
end.

cHJvZ3JhbSBhdmVyYWdlOwp1c2VzIG1hdGg7Cgp2YXIKcCwgc3VtLCBuLCBpOiBpbnRlZ2VyOwphdiwgdmFyaWFuY2UsIHN0ZGRldjogcmVhbDsKZGF0YTogYXJyYXlbMS4uMTAwMF0gb2YgaW50ZWdlcjsKCmJlZ2luCnN1bSA6PSAwOwpuIDo9IDA7Cgp3cml0ZWxuKCfjg4fjg7zjgr/jga7lgIvmlbDjgpLlhaXlipvjgZfjgabjgY/jgaDjgZXjgYQ6Jyk7CnJlYWRsbihuKTsKCndyaXRlbG4oJ+ODh+ODvOOCv+OCkiAnLCBuLCAnIOWAi+WFpeWKm+OBl+OBpuOBj+OBoOOBleOBhDonKTsKZm9yIGkgOj0gMSB0byBuIGRvCmJlZ2luCnJlYWRsbihwKTsKZGF0YVtpXSA6PSBwOwpzdW0gOj0gc3VtICsgcDsKZW5kOwoKYXYgOj0gc3VtIC8gbjsKCnZhcmlhbmNlIDo9IDA7CmZvciBpIDo9IDEgdG8gbiBkbwp2YXJpYW5jZSA6PSB2YXJpYW5jZSArIHNxcihkYXRhW2ldIC0gYXYpOwoKdmFyaWFuY2UgOj0gdmFyaWFuY2UgLyBuOwpzdGRkZXYgOj0gc3FydCh2YXJpYW5jZSk7Cgp3cml0ZWxuKCflkIjoqIg9Jywgc3VtLCAnIOS7tuaVsD0nLCBuLCAnIOW5s+Wdhz0nLCBhdjo0OjIpOwp3cml0ZWxuKCfmqJnmupblgY/lt649Jywgc3RkZGV2OjQ6Mik7CmVuZC4=

NQoxOAoyMQozNAo3OAoyNw==

5
18
21
34
78
27