Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. const N=30; var a: array [1..N] of integer; i, x, y: integer; s: real; begin for i:=1 to N do a[i]:=random(__)-__; for i:=1 to N do write(a[i]:6); writeln; ... end.

Answer 1

Алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5, может быть описан следующим образом:

1. Инициализируйте переменную `s` суммой элементов массива, оканчивающихся цифрой 5, и переменную `count` с количеством таких элементов, оба равными нулю. 2. Пройдите по всем элементам массива. 3. Для каждого элемента, проверьте, оканчивается ли он цифрой 5. 4. Если элемент оканчивается цифрой 5, добавьте его к переменной `s` и увеличьте значение переменной `count` на 1. 5. После завершения цикла, проверьте значение переменной `count`. Если оно равно нулю, значит в массиве нет элементов, оканчивающихся цифрой 5. В таком случае, выведите сообщение об этом. 6. Если значение переменной `count` не равно нулю, вычислите среднее арифметическое элементов, оканчивающихся цифрой 5, путем деления суммы `s` на количество `count`. 7. Выведите полученное значение среднего арифметического.

Алгоритм на языке программирования Pascal:

const
  N = 30;
var
  a: array[1..N] of integer;
  i, x, count: integer;
  s, average: real;
begin
  // Заполнение массива случайными числами от -1000 до 1000
  for i := 1 to N do
    a[i] := random(2001) - 1000;

// Вывод элементов массива
  for i := 1 to N do
    write(a[i]:6);
  writeln;

// Поиск суммы и количества элементов, оканчивающихся на 5
  s := 0;
  count := 0;
  for i := 1 to N do
  begin
    if a[i] mod 10 = 5 then
    begin
      s := s + a[i];
      count := count + 1;
    end;
  end;

// Проверка наличия элементов, оканчивающихся на 5
  if count = 0 then
    writeln('В массиве нет элементов, оканчивающихся на 5')
  else
  begin
    // Вычисление среднего арифметического
    average := s / count;
    // Вывод среднего арифметического
    writeln('Среднее арифметическое элементов, оканчивающихся на 5: ', average:0:2);
  end;
end.

В данном примере используется язык программирования Pascal, но аналогичный алгоритм можно реализовать на других языках программирования.