Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
2 апреля 2023 02:52
574
Найди сумму положительных элементов массива, размерности 15, заполненного с помощью случайных чисел из промежутка (-15;23).
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 - Выводит в консоль значение или строковое представление объекта, для которого вызвано.
--- 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 - Выводит в консоль значение или строковое представление объекта, для которого вызвано.
0
·
Хороший ответ
4 апреля 2023 02:52
Остались вопросы?
Еще вопросы по категории Информатика
Объём сообщения равен 14 Кбайт.Сообщение содержит 16384символа.Какова мощность алфавита?...
Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 1 минуту и 20 секунд. Если предварительно упаковать документ а...
Используя дополнительные источники, выясните, кто и когда предложил использовать знак @ в адресах электронной почты: Как называют этот знак в разных...
1. Приведите примеры кодирования информации. 2. Закодируйте слово ХЛЕБ различными способами. 3. Найдите информационный объем пословицы в кодировке U...
Самая большая единица измерения в информатике? Плиз срочно! Отдам 50 баллов...