Вопрос задан 07.11.2023 в 17:21. Предмет Информатика. Спрашивает Трунова Эля.

Информатика 10 класс Заранее спасибо C клавиатуры вводится 12 положительных чисел. Cоставить

программу для определения среднего арифметического чисел кратных 3.​
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Черных Настя.

Ответ:

var

 n, i, k, a: integer;

 s: real;  

begin

 repeat

   write('Количество чисел: ');

   readln(n)

 until n > 0;

 writeln('Введите числа:');

 for i := 1 to n do

   begin

     write('Число №', i, ': ');

     readln(a);

     if a mod 3 = 0

       then begin

         s := s + a;

         inc(k)

       end

   end;

 if k > 0

   then writeln(s / k :0:5)

   else writeln('Не одно из чисел не кратно трём')

end.

Объяснение:

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, я могу помочь вам с этой задачей. Вот пример программы на языке программирования Python, которая будет находить среднее арифметическое чисел, кратных 3:

```python # Вводим 12 положительных чисел с клавиатуры numbers = [] for i in range(12): number = int(input("Введите число: ")) numbers.append(number)

# Находим сумму чисел, кратных 3, и их количество sum_of_multiples = 0 count_of_multiples = 0 for number in numbers: if number % 3 == 0: sum_of_multiples += number count_of_multiples += 1

# Вычисляем среднее арифметическое чисел, кратных 3 if count_of_multiples > 0: average = sum_of_multiples / count_of_multiples print("Среднее арифметическое чисел, кратных 3, равно:", average) else: print("В последовательности нет чисел, кратных 3.") ```

Вы можете скопировать этот код и запустить его на своем компьютере, чтобы увидеть результат. Надеюсь, это поможет вам решить задачу. Если у вас есть еще вопросы, не стесняйтесь задавать.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос