Tìm giá trị nhỏ nhất (min) của một dãy số nguyên

$\text{* Thuật toán tìm giá trị nhỏ nhất trong dãy :}$

$\text{- Bước 1 : nhập số n và dãy a1, a2, ... , an}$

$\text{- Bước 2 : min ← a[1], i ← 2}$

$\text{- Bước 3 : nếu i > n thì chuyển tới bước 5}$

$\text{- Bước 4 :}$

$\text{- Bước 4.1 : nếu a[i] < min thì min ← a[i]}$

$\text{- Bước 4.2 : i ← i + 1 quay lại bước 3}$

$\text{- Bước 5 : đưa ra giá trị min rồi kết thúc}$

Program gtnn;

Uses crt;

Var A: array[1..200] of integer;

      n,i,min:integer;

Begin

Clrscr;

Write('Nhap so cac so phan tu:');

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 A[i]<min then min:=A[i];

Writeln('Gia tri nho nhat cua day la:',min);

Readln

End.