Mencari Bilangan Terbesar Terkecil dengan Pascal #108

andrypein.net : Lupa juga ini blog ga di pascal2in, ini latihan saja dulu dah, seminggu kemarin saya sakit semoga yang ini bermanfaat.

Sesuai judul, program kali ini adalah program untuk mencari bilangan terbesar dan terkecil dengan pascal dari beberapa buah nilai uang kita inputkan.

Bisa dilihat source nya seperti ini gan :

program maxmin;
uses wincrt;
var
 bil :array[1..100] of integer;
 max,min,i,n :integer;
begin
write('Masukkan jumlh bilangannya gan =');readln(n);
for i:= 1 to n do
 begin
  write('Bilangan ke ',i,' = ');readln(bil[i]);
 end;
max:=bil[1];
min:=bil[1];
for i:= 2 to n do
 if bil[i] > max then
  max:=bil[i]
 else
 if bil[i] < min then
  min:=bil[i];
 writeln('Bilangan terbesar =',max);
 writeln('Bilangan terkecil =',min);
end.

Silahkan compile dan run dan coba input kan gan.

*AFK