Membuat Program Pascal untuk Menampilkan Nilai Terbesar dan Terkecil

program terbesar_terkecil;
uses wincrt;
var
i,n:integer;
data:array[1..100]of integer;
x,y:longint;
begin
x:=-999999;
y:=999999;
write(' Masukkan jumlah data = ');readln(n);
for i:=1 to n do
begin
write(' Masukkan data ke ',i,' = ');readln(data[i]);
end;
for i:=1 to n do
begin
if data[i] > x then
x:=data[i];
if data[i] < y then
y:=data[i];
end;
writeln(' Bilangan Terbesar = ',x);
writeln(' Bilangan Terkecil = ',y);
readln;
end.

Membuat Program untuk Menampilkan Nilai terkecil

program bil_terkecil;
uses wincrt;
var
a,b,c,x:longint;
begin
x:=99999999;
write(' Masukkan bilangan pertama = ');readln(a);
write(' Masukkan bilangan kedua = ');readln(b);
write(' Masukkan bilangan ketiga = ');readln(c);
if (a < x) then
x:=a;
if (b < x) then
x:=b;
if (c < x) then
x:=c;
writeln(' Bilangan terkecil adalah ',x);
readln;
end.

Mencari Bilangan Terbesar dengan Array Pascal

program angka_terbesar;
uses wincrt;
var
bil:array[1..100] of integer;
i,k,n:integer;
begin
k:=-9999;
write(' Masukkan jumlah data yang akan diinputkan = ');readln(n);
for i:=1 to n do
begin
write(' Msukkan bilangan ke ',i,' = ');readln(bil[i]);
if bil[i]>k then
k:=bil[i];
end;
writeln;
writeln(' Tekan ENTER untuk mengetahui bilangan terbesar!');readln;
writeln(' Bilangan terbesar = ',k);
readln;
end.

Membuat Program Cari Bilangan dengan Pascal

program cari_bilangan;
uses wincrt;
var
i,x,n:integer;
bilangan:array[1..10] of integer;
c:boolean;
begin
write(' Masukkan jumlah data bilangan yang diinginkan = ');readln(n);
begin
for i:=1 to n do
begin
write(' Masukkan data bilangan ke ',i,' = ');readln(bilangan[i]);
end;
write(' Masukkan nilai yang dicari = ');readln(x);
write(' Tekan ENTER untuk mengetahui!');readln;
end;
begin
i:=1;
c:=false;
while (i<=n) or (c=false) do
begin
if (bilangan[i]=x) and(i<=n) then
begin
writeln(' Ternyata bilangan ',x,' ada di urutan ke ',i);
i:=i+1;
c:=true;
end
else
begin
i:=i+1;
c:=false;
end;
end;
end;
begin
if c=false then
begin
writeln(' Maaf,bilangan ',x,' tidak ada...');
end;
end;
readln;
end.