Question

Задан массив из 25 элементов,заполненный в диапазоне от -50 до 50.Найти и вывести среднее арифметическое элементов массива положительных и кратных 7. Помогите пожалуйста

Answer 1

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

begin

 var a := ArrRandom(25, -50, 60);

 a.Println;

 a.Where(p -> (p > 0) and (p mod 7 = 0))

     .DefaultIfEmpty

     .Average

     .Println

end.