Cho dãy A gồm N số nguyên a1,a2...an trình bày thuật toán đưa ra số lượng các số chẵn có trong dãy đã cho

program Kookie;

uses crt;

var     d, i, N : integer;

begin

clrscr;

write(' nhap vao so phan tu cua day A là :');

readln(N);

for i:=1 to N do

if A[i] mod 2 = 0 then

d := d+1;

writeln(' so ca so chan la :,'d);

readln

end.

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

+ Input : số N và các số hạng a[1], ... , a[N]

+ Output : số lượng các số chẵn có trong dãy đã cho

- Mô tả thuật toán :

+ Bước 1 : nhập số N và các số hạng a[1], ... , a[N]

+ Bước 2 : count ← 0, i ← 1

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

+ Bước 4 :

+ Bước 4.1 : nếu a[i] mod 2 = 0 thì count ← count + 1

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