Question

Напишите функцию, которая определяет количество нулевых элементов передаваемого массива.

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function ArrZeroCount(a:array of integer):=a.Where(x->x=0).Count;

begin
  var Mas:=ArrRandom(ReadInteger('n='),-5,5); Mas.Println;
  Writeln('Количество нулей в массиве равно ',ArrZeroCount(Mas))
end.

Пример:
n= 15
-5 0 -4 2 5 1 4 -4 0 -1 0 1 3 2 3
Количество нулей в массиве равно 3

Answer 2

Вот функция на языке Python, которая определяет количество нулевых элементов передаваемого массива:

def count_zeros(arr):
    count = 0
    for num in arr:
        if num == 0:
            count += 1
    return count

Эта функция принимает массив `arr` в качестве аргумента и итерируется по каждому элементу массива. Если элемент равен нулю, счетчик `count` увеличивается на единицу. В конце функция возвращает значение счетчика `count`, которое представляет количество нулевых элементов в массиве.

Например, если мы вызовем функцию `count_zeros([0, 1, 0, 2, 0, 3])`, она вернет значение 3, так как в массиве есть три нулевых элемента.

Примечание: Этот код не является прямым цитированием из найденных источников, но представляет собой общепринятый подход к решению данной задачи.