Question

Вычислить сумму элементов массива x(6),абсолютная которых <2.​

Answer 1

===== PascalABC.NET =====

begin

 var x := ArrRandomReal(6, -4, 4);

 x.Println;

 x.Where(p -> Abs(p) < 2).Sum.Println

end.