Помогите пожалуйста:
Найдите сумму элементов массива из 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
