Помогите пожалуйста: Найдите сумму элементов массива из 10 элементов, значения которых принадлежат промежутку (-20;45)
Помогите пожалуйста:
Найдите сумму элементов массива из 10 элементов, значения которых принадлежат промежутку (-20;45)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1111
begin
var n:=ReadInteger('Количество элементов массива: ');
var A:=ArrRandom(n,-50,50);
Writeln('*** Сгенерированный массив ***');
A.Println(',');
Write('Сумма элементов в диапазоне (-20;45) равна ');
Writeln(A.Where(x->x in [-20..45]).Sum)
end.
Тестовое решение:
Количество элементов массива: 10
*** Сгенерированный массив ***
-6,-29,3,7,-40,-44,-46,-15,3,-3
Сумма элементов в диапазоне (-20;45) равна -11
Не нашли ответ?
Похожие вопросы