Question

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

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.

Answer 2

Конечно, вот пример решения вашей задачи на Python:

# Функция для нахождения среднего арифметического чисел, кратных 8
def average_multiple_of_eight(numbers):
    count = 0  # счетчик чисел, кратных 8
    total = 0  # сумма чисел, кратных 8

for num in numbers:
        if num == 0:  # при обнаружении нуля - конец последовательности
            break
        if num % 8 == 0:  # проверяем кратность числа 8
            count += 1
            total += num

if count == 0:
        print("Таких чисел нет")
    else:
        average = total / count
        print(f"Среднее арифметическое чисел, кратных 8: {average:.2f}")

# Ввод последовательности чисел пользователем
numbers = []
print("Введите последовательность натуральных чисел, завершите ввод нулем:")

while True:
    num = int(input("Введите число: "))
    if num == 0 or len(numbers) >= 100:  # если число 0 или достигнуто максимальное количество чисел
        break
    if num <= 300:  # проверка на максимальное значение числа
        numbers.append(num)
    else:
        print("Число больше 300, попробуйте снова.")

# вызываем функцию для нахождения среднего арифметического чисел, кратных 8
average_multiple_of_eight(numbers)

Эта программа запрашивает у пользователя последовательность чисел до тех пор, пока не будет введен 0 или пока не будет введено максимальное количество чисел (100). Она проверяет каждое число на кратность 8, считает их количество и сумму, затем находит и выводит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет.