Program array mencari bilangan terbesar dan terkecil (Pascal)

Program array bilangan terbesar dan terkecil dengan pascal

uses wincrt;

var

dafbil: array [1..100] of integer;

terbesar : integer;

terkecil : integer;

i,n : integer;

begin

write ('Masukkan bilangan = ');  readln (n);


for i:= 1 to n do

begin

write ('Bilangan ke ',i,' =   ');   readln  (dafbil    [i] );

end;

terbesar   : = dafbil  [1];

terkecil    : = dafbil [1];

for i:= 2 to n do

if dafbil [i] > terbesar then

terbesar  : = dafbil [i]


else

if dafbil [i] < terkecil then

terkecil : = dafbil  [i] ;

writeln ('Bilangan terbesar = ' , terbesar);

writeln ('Bilangan terkecil = ' , terkecil);

end.