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

pastor741 pastor741    2   18.12.2019 04:09    0

Ответы
Bakberdi Bakberdi  10.10.2020 21:27

===== 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.


Напишите программу, которая в массиве, состоящем из 10 натуральных чисел, находит среднее арифметиче
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика