Помогите пожалуйста: Найдите сумму элементов массива из 10 элементов, значения которых...

Question

Помогите пожалуйста:

Найдите сумму элементов массива из 10 элементов, значения которых принадлежат промежутку (-20;45)

Answer 1

// 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