Verified answer

PascalABC.Net

• begin
•  var n := ReadInteger('Введите длину массива');
•  var a := ArrRandom(n, -50, 50);
•  Println('Исходный массив');
•  a.Println;
•  a.Where(p -> p < 0).Average.Println;
•  a.Where(p -> p > 0).Average.Println;
• end.