Даны натуральные числа n, а1...аn. Определить количество членов последовательности,...

Question

Даны натуральные числа n, а1...аn. Определить количество членов последовательности, являющихся нечетными числами.

Answer 1

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

begin
  Writeln('Нечетных ',ArrRandom(ReadInteger('n='),1,50).Println.
      Where(t->t.IsOdd).Count)
end.

Пример
n= 13
22 1 13 21 36 4 43 1 46 18 29 6 15
Нечетных 7