дан одномерный массив а длинной n подсчитать количество нулевых элементов массива. 55 поинтов дают. Решение без 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.