Question

Написать программу которая вычисляет количество элементов одномерного массива, меньших 10. Массив состоит из 15 целых элементов

Answer 1

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

begin

 var a := ReadArrInteger(15);  // вводим 15 элементов

 a.Count(p -> p < 10)    // подсчитываем те которыве меньше 10

     .Println                     // и выводим результат

end.