Информатика дан массив целых чисел. найти количество - вопрос №7625746 от Ydalxa534 20.07.2020 22:11

Question

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

Ydalxa534 · 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