Question

Задан массив из 80 элементов,заполненный с клавиатуры.Найти и вывести среднее значение отрицательных элементов кратных 3.
(9 класс)
Очень надеюсь,что поможете

Answer 1

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

begin

 var a := ReadArrInteger(80);

 a.Where(p -> (p < 0) and (p mod 3 = 0)).Average.Println

end.