Напишите программу, которая в массиве, состоящем - вопрос №1010399113 от ДинаLovE123 14.08.2022 13:20

Question

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

ДинаLovE123 · Answer

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