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.