Вопрос задан 15.02.2021 в 08:22. Предмет Информатика. Спрашивает Смирнов Евгений.

В массиве А из 20 целых чисел введеных с клавиатуры. Найти среднее арифметическое элементов кратных

трём.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Целищев Мирон.
Var
  A: array [1..20] of integer;
  n,i,sum,v: integer;
begin
   writeln('Введите 20 целых чисел');
   sum:=0;
   n:=0;
   for i:=1 to 20 do begin
      readln(v);
      A[i]:=v;
      if v mod 3=0 then
        begin
           Inc(sum,v);
           Inc(n);
        end;
     
   end;
  if n=0 then
   writeln('чисел кратных трём нет')
  else
    writeln('Среднее арифметическое',sum div n);
end.
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения данной задачи вам потребуется пройтись по массиву и найти все элементы, которые кратны трём. Затем вычислить их сумму и разделить на количество таких элементов, чтобы получить среднее арифметическое.

Вот пример кода на языке Python, который решает данную задачу:

python
# Создаем массив и заполняем его значениями, введенными с клавиатуры A = [] for i in range(20): num = int(input("Введите число: ")) A.append(num) # Инициализируем переменные для подсчета суммы и количества элементов summa = 0 count = 0 # Проходимся по массиву и находим элементы, кратные трём for num in A: if num % 3 == 0: summa += num count += 1 # Вычисляем среднее арифметическое if count > 0: average = summa / count print("Среднее арифметическое элементов, кратных трём, равно:", average) else: print("В массиве нет элементов, кратных трём.")

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

0 0

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

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

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