Program mencari_bilangan_terbesar

Program mencari_bilangan_terbesar;
uses crt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
clrscr;
writeln('By:Herp Anonymous');
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.

Output :

Herp Anonymous