// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Нечетных: ',ArrRandom(ReadInteger('n='),-99,99).Println
.Where(x->x.IsOdd).Count)
end.
Пример
n= 15
-91 88 -55 -11 -12 -84 53 86 27 -18 -57 -61 13 -94 -48
Нечетных: 8