Mencari Bilangan Terendah dan Tertinggi Dengan Menggunakan Pascal By ernida, 8 mei 2015

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

Begin
     Write('Input Jumlah = '); readln(n);
     Max:=1;
     Min:=30000;

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

          {Cari Bilangan Maximal}
          If bil[i]>Max then Max := bil[i] ;

          {Cari Bilangan Minimal}
          If bil[i]<Min then Min := bil[i] ;

     End;

     Writeln('Max Value = ', Max);
     Writeln('Min Value = ', Min);
     Readln ;
End.