Question

дан одномерный массив а длинной n подсчитать количество нулевых элементов массива. Срочно!!!! 55 баллов дают. Решение без consta. Правильное пж.

Answer 1

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.

Answer 2

##

var n := ReadInteger;

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

a.Println.CountOf(0).Print