Mencari Nilai Maximum dan Minimum dengan Pascal

Written By Abdul Wakhid on 7 Desember 2009 | 18.21.00

abdulmail - program maximum dan minimum dengan pascal.
program max_min;
uses crt;
var
bil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
clrscr;
writeln;write(' Ada berapa bilangan =');readln(n);
for i:= 1 to n do
begin
write(' Bilangan ke ',i,' = ');readln(bil[i]);
end;
terbesar:=bil[1];
terkecil:=bil[1];
for i:= 2 to n do
if bil[i] > terbesar then
terbesar:=bil[i]
else
if bil[i] < terkecil then
terkecil:=bil[i];
writeln(' -----------------');
writeln(' Bilangan terbesar =',terbesar);
writeln(' Bilangan terkecil =',terkecil);
readln;
end.

5 komentar:

Anonim mengatakan...

thanks :)

Anonim mengatakan...

klo pke flowchart jdinya kaya apa ?

Fauzan Kaskuser mengatakan...

Wow,Mantep kk, TQ ya

Komang Aribawa mengatakan...

bisa dijelaskan ngga min kenapa bisa gitu?

Sayogyo Pangestu mengatakan...

POSTING JUGA CARA NAMPILIN 2 DIGIT ANGKA DARI 4 DIGIT ANGKA!

Posting Komentar

Don't Spam Please !