Question

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

Answer 1

Const n=100;
var
m:array[1..n] of integer;
a,b,i,j,k:integer;

begin
k:=0;
b:=0;
writeln ('введите количество цифр');
read (j);
for i:=1 to j do
begin
read(a);
if (a mod 8) = 0 then
begin
b:=b+a;
k:=k+1;
end;
end;
write(b/(k));
end.

Answer 2

Программа, которая находит среднее арифметическое чисел, кратных 8, в последовательности натуральных чисел, может выглядеть следующим образом на языке Python:

# Вводим последовательность натуральных чисел
sequence = input('Введите последовательность натуральных чисел через пробел: ')

# Разделяем строку на отдельные числа
numbers = sequence.split()

# Инициализируем переменные для суммы чисел, кратных 8, и их количества
sum_of_multiples_of_8 = 0
count_of_multiples_of_8 = 0

# Проходим по каждому числу в последовательности
for number in numbers:
    num = int(number)  # Преобразуем число из строкового представления в целое число
    if num % 8 == 0:  # Проверяем, кратно ли число 8
        sum_of_multiples_of_8 += num  # Добавляем число к сумме
        count_of_multiples_of_8 += 1  # Увеличиваем счетчик

# Проверяем, есть ли числа, кратные 8, в последовательности
if count_of_multiples_of_8 != 0:
    average = sum_of_multiples_of_8 / count_of_multiples_of_8  # Вычисляем среднее арифметическое
    print(f'Среднее арифметическое чисел, кратных 8: {average}')
else:
    print('В последовательности нет чисел, кратных 8')

Программа сначала запрашивает у пользователя последовательность натуральных чисел, вводимую через пробел. Затем она разделяет строку на отдельные числа и инициализирует переменные для суммы чисел, кратных 8, и их количества.

Затем она проходит по каждому числу в последовательности и проверяет, делится ли оно на 8 без остатка. Если число кратно 8, оно добавляется к сумме, а счетчик чисел увеличивается.

После прохода по всей последовательности программа проверяет, есть ли в последовательности числа, кратные 8. Если есть, она вычисляет и выводит среднее арифметическое чисел, кратных 8. Если же таких чисел нет, программа выводит соответствующее сообщение.