Program Maksimum Minimum
uses wincrt;
var
L : array[1..100] of integer;
i,n : byte;
mak, min : byte;
begin
write(’Masukkan jumlah data : ‘);
readln(n);
randomize;
writeln(’Data ke yang dimasukkan adalah ‘);
for i:=1 to N do
begin
L[i]:=random(100)+1;
write(L[i]:4);
end;
Mak := L[1];
Min := L[1];
for i:=2 to N do
begin
if mak < L[i] then
mak := L[i]
else if min > L[i] then
min := L[i];
end;
writeln;
writeln(’Nilai Maksimal nya adalah ‘,mak);
writeln(’Nilai Minimal nya adalah ‘,min);
readkey;
donewincrt;
end.
