Question

Напишите программу, которая в МАССИВЕ, состоящем из 10 натуральных чисел, находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит 'No').

Answer 1

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

begin

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

 a.Println;

 var s := a.Where(p -> p mod 8 = 0);

 if a.Count = 0 then

   Println('No')

 else

   s.Average.Println

end.