uses wincrt;

type larik = array [1..10] of integer;
var bil : larik;
n, x, max, min : integer;


begin
write ('JUMLAH N : ');
readln (n);
writeln;

for x:= 1 to n do
begin
write ('Bilangan : ');
readln (bil [x]);
end;

max := bil [x];
min := bil [x];

for x:= 1 to n do
begin
if bil [x] > max then max:=bil [x];
if bil [x] < min then min:=bil [x];
end;

begin
for x:= 1 to n do
write (bil [x],' ');
end;

writeln('');
writeln ('MAX = ',max);
writeln ('MIN = ',min);
end.

Do you like this article? Share It!