B1: Nhập dãy số: a1, a2, ..., an, N
B2: i <---- 1, d <---- 0, S <---- 0
B3: Nếu i > n, chuyển đến B6
B4: Nếu ai mod 2 = 0, d <---- d+1, S <---- S+ai
B5: i <---- i+1, quay lại B3
B6: Trung bình cộng S/d, nếu d khác 0 thì kết thúc và ngược lại