program mencari_bilangan_terbesar;
uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
write('Masukkan cacah bilangan =');readln(n);
terbesar:=-999;
terkecil:=999;
terbesar:=dafbil[1];
terkecil:=dafbil[1];
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]
{for i:= 2 to n do}
else
if dafbil[i] < terkecil then
terkecil:=dafbil[i];
writeln('Bilangan terbesar =',terbesar);
writeln('Bilangan terkecil =',terkecil);
end.
hasilnya:
Masukkan cacah bilangan =3
Bilangan ke 1 = 5
Bilangan ke 2 = 2
Bilangan ke 3 = 4
Bilangan terbesar =5
Bilangan terkecil =2
