PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Нечетных двухзначнык: ',
a.Where(t->t.IsOdd and Abs(t).Between(10,99)).Count)
end.
Пример
n= 15
230 256 59 60 291 190 62 -234 -43 228 -154 62 -58 58 100
Нечетных двухзначнык: 2