Вмассиве из натуральных чисел найти количество - вопрос №8160157 от ildanmini086 11.05.2021 01:36

Question

Информатика: Вмассиве из натуральных чисел найти количество четных элементов

ildanmini086 · Answer

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

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Четных элементов- ',a.Where(x->x.IsEven).Count);
end.

Пример
n= 15
64 87 49 18 52 -67 75 -7 11 73 45 -71 -20 -44 -77
Четных элементов- 5