Задан одномерный массив. Определить количество положительных и четных элементов массива.

Question

Задан одномерный массив. Определить количество положительных и четных элементов массива.

Answer 1

PascalABC.NET

Ответ:

• begin
• var a := ArrRandom(20,-9,9);
• a.Println;
• a.Count(x->(x>0)and(x.IsOdd)).Print
• end.

Пример работы: