дают. Решение без consta. Правильное .

program myprg;

var

   a: array[0..9] of integer = (0, 1, 2, 0, 4, 5, 6, 7, 8, 0);

   i, count: integer;

begin

   count := 0;

   for i := low(a) to high(a) do

       if a[i] = 0 then

           count := count + 1;

   writeln(count);

end.

##

var n := ReadInteger;

var a := ArrRandom(n, -5, 5);

a.Println.CountOf(0).Print