* 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.
