Program Mencari Rata-rata

program rata;
uses wincrt;
var
   i,n : integer ;
x,sum,mean : real;
begin
   writeln('banyaknya data=');
   readln(n); sum:=0;
   for i:=1 to n do
begin
   writeln ('data ke ',i,'=');
   readln(x);
   sum:=sum+x;
end;
   mean:=sum/n;
    writeln('rata-rata=', mean:9:4);
end.

Posted in: 1311100133, dio ariadi, mean, pascal, program pascal, program pascal mean, program pascal rata-rata, rata-rata, turbo pascal