*Xác định thuật toán:

Input: Số n được nhập;

Output:Số nhỏ nhất trong dãy n số đó;

*Thuật toán:

B1: Nếu a> n thì in kết quả ra màn hình "n nhỏ hơn a".

B2: nếu a< n thì in kết quả ra màn hình " a nhỏ hơn n",

ngược lại in ra màn hình " Hai so  bang nhau".

B3: kết thúc.

*Viết chương trình:
Uses crt;
Var i,n,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Writeln(' Nhap do dai cua day so, n= '); Readln(n);
Writeln('Nhap cac phan tu cua day so: ');
For i:= 1 to n do
Begin
Writeln('a[', i, ']= ');
Readln(a[i]);
End;
min:= a[1];
For i:= 2 to n do
Begin
If min > a[i] then min:= a[i];
End;
Writeln('So nho nhat la: ', min);
Readln;
End.
*Nếu không sử dụng mảng thì nói với mình để mình sửa lại nhé! Nhớ tick và chọn làm ctr/l hay nhất ạ! Thanks! :D

* Mô tả thuật toán :

- Bước 1 : nhập n và dãy a1, a2, ... , an

- Bước 2 : i ← 2; min ← a[i];

- Bước 3 : nếu i > n thì đưa ra giá trị min rồi kết thúc

- Bước 4 :

- Bước 4.1 : nếu a[i] < min thì min ← a[i]

- Bước 4.2 : i ← i + 1 quay lại bước 3

* Viết chương trình :

uses crt;

var a : array[1..100] of integer;

i, n, min : integer;

begin

clrscr;

write('nhap so luong phan tu : ');readln(n);

write('nhap phan tu thu 1 : ');readln(a[1]);

min := a[1];

for i := 2 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if min > a[i] then min := a[1];

end;

writeln('phan tu nho nhat : ', min);

readln

end.