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

Question

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

Answer 1

PascalABC.NET:

begin
  var n:=ReadlnInteger('n =');
  var a:=ArrRandom(n,0,50);
  a.Println;
  var k:=a.Where(x->(x mod 2 <> 0)).Count;
  Writeln('k = ',k);
end.

Пример:
n = 10
0 16 46 49 19 15 17 47 18 43
k = 6