Ввести целочисленный массив, состоящий из 17 элементов (положительных и отрицательных) Найти сумму элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов.

PascalABC .Net

Объяснение:

begin

 WriteLn('Введите элементы массива:');

 var a := ReadArrInteger(17);

 a.PrintLn;

 WriteLn('Cуммa элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов, равна ', a.Where(x -> abs(x) > abs(a.Where(x -> x < 0).Average)).Sum);

end.