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

uses crt;

var i,dem:integer;

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

begin

  clrscr;

  writeln('Nhap 100 so nguyen: ');

  dem:=0;

  for i:= 1 to 100 do

       begin

       write('a[',i,'] = ');

       readln(a[i]);

       If a[i] = 0 then inc(dem)

       end;

  writeln('Day so tren co ',dem,' so 0 ');

  readln;

end.

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