Program Rata-Rata

PROGRAM rata_rata;

uses wincrt;

var
x : array[1..20] of integer;
tot, i, n : integer;
mean:real;
c:char;
Begin
repeat;

clrscr;
Writeln('program rata-rata');
write('Masukkan Jumlah data : ');
readln(n);
writeln;
writeln;
tot:=0;

for i:=1 to n do
begin
write('Masukkan data ke-',i,' ', 'Anda : '); readln(x[i]);
tot:=tot + x[i];


end;

writeln;
mean:=tot/n;
write('Dan Hasil Perhitungan Meannya : ');
(*writeln(i,'+',x[i]);*)
Writeln(mean:8:3);



write('Apakah Ingin Mengulang (Y/T) :');
readln(c);
until c='T';
end.