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

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.

Mô tả thuật toán :

Bước 1 : nhập số n và dãy a1, a2, .. , an 

Bước 2 : i ← 1, dem ← 0

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

Bước 4 : 

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

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