Question

Создать массив а из десяти целых чисел, принадлежащих промежутку [-10; 15]. Вывести полученный массив на экран. Подсчитать k — количество элементов массива, значение которых меньше 7.

Answer 1

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

begin

 var a := ArrRandom(10, -10, 15);

 a.Println;

 var k := a.Count(p -> p < 7);

 k.Println

end.