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