Question

Написать программу в Pascal, которая вычисляет количество элементов одномерного массива, лежащих в диапазоне от -10 до -2. Массив состоит из 16 вещественных элементов.

Answer 1

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

begin

 var a := ReadArrReal(16);

 a.Count(p -> p.InRange(-10.0, -2.0)).Println

end.