ВЫПОЛНИТЕ Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран: а)сумму и среднее арифметическое считанных чил; б)сумму и среднее арифметическое положительных чисел; в)сумму и среднее арифметическое отрицательных чисел.

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var A := ReadArrInteger(readinteger('n = '));

 //Среднее арифметическое

 A.Average.Println;

 //Среднее арифметическое положительных

 A.Where(p -> p >= 0).Average.Println;

 //Среднее арифметическое отрицательных

 A.Where(p -> p < 0).Average.Println;

end.

Объяснение: