Bài 1: 

Bước 1: Nhập n

Bước 2: i ← 1 to n

Nhập A[i]

Bước 3: s ← 0

Bước 4: d ← 0

Bước 5: i ← 1 to n

s ← s+A[i]

Nếu (A[i] mod 2 = 0) and (A[i]>0) thì d ← d+1

Bước 6: Xuất s và d

Bài 2: 

Bước 1: Nhập n

Bước 2: i ← 1 to n

Nhập A[i]

Bước 3: s ← 1

Bước 4: i ← 1 to n

s ← s*A[i]

Nếu (A[i] mod 2 = 1) and (A[i]<0) thì Write(A[i])

Bước 5: Writeln

Bước 6: Xuất s

Bài 1: Cho số nguyên dương n và dãy số nguyên a1,a2,...an. Tính tổng và đếm các số dương chẵn có trong dãy a.

input : số nguyên dương n và dãy số nguyên a1..an

ouput : tổng và số các số dương chẵn trong dãy

thuật toán

buơc 1 : nhập n và dãy sôs nguyên a1,a2,...an

bước 2 : nếu a[i] >0 and a[i] mod 2 =0 thì sang bước 3

bước 3: tính tổng các số vừa tìm được

s <- s+s[i]

bước 4 : in ra kết quả và kết thúc thuật toán

Bài 2: Cho số nguyên dương a1,a2,...an. Tìm tích và số lẻ âm

Input: dãy sô nguyên dươg a1,a2...an

Output: tích và số số lẻ âm

thuật toán

bước 1: nhập số phânf tử trong dãy ,và nhập dãy số a1,a2..an

bước 2: tính tích s<- s*a[i]

bước 3: in ra kết quả và kết lận không có số lẻ âm

bước 4 : kết thúc thuật toán

vì dãy này đã là dãy ngueên dương -> không có số âm-> kết luận luôn