Question

Ввести N чисел.Найти количество нечетных​

Answer 1

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

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p.IsOdd).Println

end.