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(n,'rata-rata=',mean:9:4)
end.
Program ini digunakan untuk mencari rata-rata dari beberapa data yang sudah dimasukkan.
0 comments:
Post a Comment