Question

Вводится последовательность из N целых чисел. Определить среднее арифметическое двузначных элементов последовательности.
ПАСКАЛЬ

Answer 1

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

begin

 var n := ReadInteger;

 ReadSeqInteger(n)

     .Where(p -> p.InRange(10,99))

     .DefaultIfEmpty

     .Average

     .Println

end.