Bilangan terbesar dan terkecil

menentukan Bilangan terbesar dan terkecil dengan array menggunakan pascal

Program terbesar_terkecil_array;
uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
write('Masukkan cacah 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:= 1 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.


syntax pascal klik disini.