uses wincrt;
const maksdata=100;
var
i,jmldata : integer;
maks, min,rata,total :real;
data : array [1..maksdata] of real;
tombol:string;
begin
repeat
CLRSCR;
WRITELN;
writeln(' SELAMAT DATANG DI');
writeln(' PROGRAM PENCARI ANGKA MAKSIMUM, MINIMUM, DAN RATA-RATA');
WRITELN;
WRITELN;
write(' JUMLAH DATA : ');
readln(jmldata);
WRITELN;CLRSCR;
for i :=1 to jmldata do
begin
WRITELN;
write(' DATA KE-',i,' = ');
readln(data[i]);
end;
total:=data[1];
maks :=data[1];
min :=data[1];
for i :=2 to jmldata do
begin
total :=total + data[i];
if maks <data[i] then maks := data[i];
if min >data[i] then min := data[i];
end;
CLRSCR;
rata := total/jmldata;
writeln;
writeln(' NILAI TERBESAR = ',maks:6:1);
WRITELN;
writeln(' NILAI TERKECIL = ',min:6:1);
writeln;
writeln(' RATA-RATA = ',rata:6:1);
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
writeln;
writeln('* Y untuk kembali ke awal');
writeln('* T untuk mengakhiri program');
tombol:=readkey;
until(tombol='T')or(tombol='t');
begin
clrscr;
writeln;
writeln;
writeln(' Thanks Dab');
writeln('**********************************************************************');
end;
end.