Question

В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран количество нечетных чисел.

Answer 1

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

begin

 var a := ArrRandom(10, 0, 45);

 a.Println;

 var k := a.Count(p -> p.IsOdd);

 Print(k)

end.