uses crt;
var n,i,lon,nho: integer;
    a: array[1..86] of integer;
begin
clrscr;
    write('Nhap do dai: '); readln(n);
    write('Nhap mang: '); for i:=1 to n do read(a[i]);
    lon:=a[1]; nho:=a[1];
    for i:=1 to n do begin
        if lon<a[i] then lon:=a[i];
        if nho>a[i] then nho:=a[i];
    end;
    writeln('So lon nhat: ',lon);
    write('So nho nhat: ',nho);
    readln
end.

CT cơ bản để tìm số nhỏ nhất:

uses crt;
var i,n,min:integer;
a:array[1..86]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
 if min > a[i] then min:=a[i];
write('so nho nhat la:',min);
readln;
end.

_________________________________

câu lệnh chính: 

min:=a[1];
for i:=1 to n do
 if min > a[i] then min:=a[i];

giải thích:

câu lệnh 1: min:=a[1]; = > gán cho biến min bằng giá trị đầu tiên của dãy số

câu lệnh 2:

for i:=2 to n do
 if min > a[i] then min:=a[i];

=> thự hiện vòng lặp có số lần lặp bằng với số phần tử của mảng trừ đi 1

 trong đó:

- câu lệnh điều kiện dạng thiếu if..then dùng để kiểm tra xem :

+ nếu như giá trị của a[i] nhỏ hơn giá trị của của biến min thì biến min sẽ được gán giá trị mới là giá trị cảu a[i];

+ nếu như giá trị của a[i] lớn hơn giá trị của min thì sẽ bỏ qua.

(mong dc 5*+hay nhất)