ВЫПОЛНИТЕ Напишите программу, которая считывает с клавиатуры 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.
Объяснение: