Mencari Bilangan Terkecil dan Terbesar (PASCAL). (http://mesran.wordpress.com/2011/10/19/mencari-bilangan-terkecil-dan-terbesar-pascal/)

Dibawah ini program untuk mencari bilangan terbesar dan terkecil.

Uses crt;
Var bil:array[1..100] of integer;
max,min,i,n:integer;

Begin
     Write('Masukkan jumlah bilangannya gan = '); readln(n);
     Max:=1;
     Min:=30000;

     For i:=1 to n do
     Begin
          {Menginputkan Nilai Bilangan Ke I}
          Write('Bilangan ke ',i,' = '); readln(bil[i]);

          {Mencari Bilangan Terbesar}
          If bil[i]>Max then Max := bil[i] ;

          {Mencari Bilangan Terkecil}
          If bil[i]<Min then Min := bil[i] ;

     End;

     Writeln('Bilangan Terbesar = ', Max);
     Writeln('Bilangan Terkecil = ', Min);
     Readln ;
End.

http://mesran.wordpress.com/2011/10/19/mencari-bilangan-terkecil-dan-terbesar-pascal/