cho dãy a1 .....a100 viết chương trình đếm xem có bao nhiêu số 0 trong dãy

program ct;

uses crt;

var d,i:integer;

A:array[1..100] of integer;

begin

clrscr;                 

write('nhap 100 so nguyen tu ban phim');

for i:=1 to 100 do

begin

  write('nhap mang A[',i,']='); readln(A[i]);

end;

d:=0;

for i:=1 to 100 do 

if A[i]=0 then d:=d+1;

writeln('co', d,' so 0 trong day');

readln

end.

uses crt;

var A : array [1.. 1000] of integer;

i, N, d : integer;

begin

clrscr;

d := 0;

write('Nhap so phan tu N = '); readln(N);

write('Nhap ', N ,' phan tu mang A : ');

for i := 1 to N do begin read(A[i]);

if (A[i] = 0) then d := d + 1;

end;

writeln('Day A co ', d ,' so 0');

readln

end.