Program Statistika Deskriptif

program data;
uses wincrt;
var a:array[1..1000] of real;
I,n:integer;
sum,mean,max,min,sum2,s2,d:real;
begin
write('banyaknya data:');
readln(n);sum:=0;max:=
- 99;min:=99;sum2:=0;
for i :=1 to n do
begin
write('data ke:',i,'=');
readln(a[i]);
if maxa[i]then min:=a[i];
sum:=sum+a[i];
sum2:=sum2+a[i]*a[i];
s2:=(sum2-sum*sum/n)/(n-1);
d:=sqrt(s2);
end;
mean:=sum/n;
writeln('rata-rata:',mean:8:4);
writeln('max:',max:8:4);
writeln('min:',min:8:4);
writeln('var:',s2:8:4);
writeln('stadev:',d:8:4);
end.