Question

Найди сумму положительных элементов массива, размерности 15, заполненного с помощью случайных чисел из промежутка (-15;23).​

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

var A := ArrRandom(15, -15, 23);

A.Where(p -> p > 0).Sum.Println;

end.

--- Описание использованных методов ---

ArrRandom(n, a, b) -> Возвращает Array of Integer длиной n, заполненный случайными значениями из диапазона [a, b];

.Where(predicate: T -> boolean) - Расширение Array of T (Может быть вызвано для Array of T независимо от типа T), выполняющее фильтрацию массива заданной логической функцией (предикатом). Возвращает Sequence of T.

.Sum - Суммирует элементы итерируемого объекта, для которого вызвано.

.Println - Выводит в консоль значение или строковое представление объекта, для которого вызвано.