- Xác định bài toán :

+ Input : Số N và dãy A gồm N phần tử

+ Output : Tích của dãy N số

- Ý tưởng :

+ Khởi tạo S = 1

+ Giá trị biến i lần lượt chạy từ 1 đến N

+ Tương ứng với mỗi giá trị i thực hiện nhân A[i] vào biến S

- Thuật toán :

+ Bước 1 : Nhập số N và dãy A

+ Bước 2 : i ← 1, S ← 1

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

+ Bước 4 : S ← S * A[i]

+ Bước 5 : i ← i + 1 quay lại Bước 3

+ Xác định bài toán:

→INPUT: N và dãy A$_{N}$

→OUTPUT: tích của dãy A$_{N}$

+ Ý tưởng:

→Sử dụng 1 biến tich có giá trị bằng 1 để tính tích.

→Sử dụng vòng lặp While..do để tính tích lần lượt nhân biến tich với các giá trị của dãy A$_{N}$.

→Sử dụng câu lệnh write(tich); để in ra tích của dãy.

+ Thuật toán: 

→B1: Nhập giá trị của N và dãy A$_{N}$

→B2: tich←1;

→B3: j←0;

→B4: Nếu j>N thì đến bước 7.

→B5: j←j+1;

→B6: tich←tich*A[j] quay lại bước 5.

→B7: In ra tích của dãy số A$_{N}$.