program array standar deviasi, varians, mean

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

"Waktu ,mengubah semua hal, kecuali kita. Kita mungkin menua dengan berjalanannya waktu, tetapi belum tentu membijak. Kita-lah yang harus mengubah diri kita sendiri"

program PASCAL-std.dev-var-mean

program stdev_varian_mean;
uses wincrt;
var i,n:integer;
a,b,c,d:real;
x:array[1..100] of integer;
begin
write ('jumlah data=');readln(n);
a:=0;
for i:=1 to n do
begin
write ('x[',i,']='); readln (x[1]);
a:=a+x[i];
end;
writeln;
writeln ('rata-rata =',a/n:0:2);
for i:=1 to n do
begin
b:=x[i]-(a/n);
c:=sqr(b);
d:=d+c;
end;
writeln ('varians=', d/(n-1):0:2);
writeln ('standardeviasi=',sqrt(d/(n-1)):0:2);
end.