Напишите функцию, которая определяет количество нулевых элементов передаваемого массива.
Напишите функцию, которая определяет количество нулевых элементов передаваемого массива.
Ответ(ы) на вопрос:
Гость
// 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
Не нашли ответ?
Похожие вопросы