Question

дан массив с [1:20], элементами которого являются случайные числа из интервала (0, 200). Определить количество элементов, которые являются нечетными числами.

Answer 1

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var c:=ArrRandom(20,0,200); c.Println;
  Writeln('Кол-во нечетных: ',c.Where(x->Odd(x)).Count);
end.

Тестовое решение:
120 175 140 191 3 64 105 106 192 174 21 166 149 179 32 166 69 78 158 48
Кол-во нечетных: 8