Ввести целочисленный массив, состоящий из 17 элементов (положительных и отрицательных) Найти сумму элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов.
WriteLn('Cуммa элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов, равна ', a.Where(x -> abs(x) > abs(a.Where(x -> x < 0).Average)).Sum);
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.