Question

Заполните одномерный массив случайными числами Найдите среднее арифметическое положительных элементов этого массива

Answer 1

===== PascalABC.NET ======

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p > 0).Average.Println

end.