Cho N và dãy số a1,....,aN,hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0

bước 1 : nhập a1 , a2,... an , N , k=0

bước 2 : gán i =1, d=0 ( d là biến đếm ) 

b3 : nếu i>n thì đưa ra kết quả rồi kết thúc 

b4: cho Ai = k suy ra d=d+1

b5: i=i+1 rồi quay lại bước 3

Program Dem;

Uses crt;

Var A: array[1..10000] of longint;

    i,n,d: longint;

Begin

        Clrscr;

        Write('Nhap N: '); Readln(n);

        For i:=1 to n do

        Begin

                Write('A[',i,'] = '); Readln(A[i]);

        End;

        d:=0;

        For i:=1 to n do

                If A[i]=0 then inc(d);

        Write('Co ',d,' phan tu co gia tri bang 0');

        Readln

End.