// PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!begin Writeln('Кол-во двухзначных чисел равно ', ReadSeqInteger('Введите 10 натуральных чисел:',10) .Where(t->Abs(t).Between(10,99)).Count)end.
ПримерВведите 10 натуральных чисел: 356 0 16 -3523 -62 35 123 4 -2 131Кол-во двухзначных чисел равно 3