Question

Дан массив целых чисел. Найти сумму только тех чисел, которые меньше задданого числа М. Считать, что такие числа есть.

Answer 1

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

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var m := ReadInteger('M =');

 a.FindAll(p -> p < m).Sum.Println

end.