Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
PascalPemrograman

Mencari Bilangan Terbesar Terkecil dengan Pascal #108

yang bertelur itu ayam, bukan sapi

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

Related Articles

One Comment

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button