Информатика дан массив целых чисел. найти количество - вопрос №7625746 от polinavorkuta 03.04.2022 14:15

Question

Информатика: Информатика дан массив целых чисел. найти количество нулей

polinavorkuta · Answer

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

begin
var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
Writeln('Количество нулей равно ',a.Where(x->x=0).Count)
end.

Пример
n= 25
0 1 5 3 -8 8 3 -9 6 9 2 -1 -6 -8 -1 0 -1 7 5 4 8 -1 4 9 1
Количество нулей равно 2