Question

Дано масив А[1..n]. Скласти програму підрахунку середніх арифметичних всіх від’ємних та всіх додатніх його чисел.

Answer 1

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.