Написать программу, которая в последовательности натуральных чисел находит среднее...

Question

Написать программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (вывести на экран сообщение). На входе - натуральные числа, их кол-во неизвестно, последовательность заканчивается нулём (это признак окончания ввода, в последовательность не входит. Кол - во чисел не больше 100, сами числа - не больше 300. Значения выводить с точностью до десятых.
P.S. Заранее спасибо!

Comments

Pascal? Так ведь?

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ReadString('Введите число').ToIntegers;
var ans := a.where(t->(t mod 8 = 0)and(t <> 0)).sum / a.where(t-> (t mod 8 = 0)and(t <> 0)).count;
if (ans >0) then
   Writeln(ans)
else
   Writeln('Чисел, кратных 8 нет');
end.