Question

Найти количество чётных элементов целочисленного массива. Элементы вводятся с клавиатуры. Написать код (сделать на Паскале)​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Длина массива:');

 var a := ReadArrInteger('Вводи:', n);

 Write('Количество четных элементов равно ', a.Count(p -> p.IsEven))

end.