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

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.