Question

Надо написать программу к задаче:
Вводятся 12 целых чисел. Найти количество однозначных чисел в этом наборе

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqInteger('Введите 12 чисел', 12)

   .Count(p -> p.InRange(-9, 9)).Println

end.