Program Mencari Bilangan Terbesar (PASCAL)

Program ini dijalankan dengan memasukkan jumlah bilangan cacah terlebih dahulu. kemudian user memasukkan beberapa bilangan bulat yang kemudian akan dicari oleh program mana bilangan terbesar dan mana bilangan terkecil.

Untuk lebih jelasnya lihat contoh dibawah ini :

source code :
-----------------------------------------------------------------------


Program mencari_bilangan_terbesar; {judul program}
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;- -->ini hanya berlaku apabila nilai bilangan
antara -999 s/d 999}
{terbesar:=dafbil[1];
terkecil:=dafbil[1];--> akan menyebabkan yang terkecil selalu
0(nol) apabila nilai semua bilangan lebih besar dari 0(nol)}
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);
readln;
end.