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