Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. На языке паскаль. Пасибо

Answer 1

На ТР7. 
Блок-схема автоматическая. 

Answer 2

Для решения этой задачи на языке Pascal можно использовать следующий алгоритм:

1. Объявить целочисленный массив из 30 элементов.
2. Ввести значения элементов массива с клавиатуры или задать их случайным образом, в зависимости от требований задачи.
3. Объявить переменные для подсчета суммы и количества элементов, оканчивающихся на цифру 5, и инициализировать их нулем.
4. Пройти по всем элементам массива в цикле и для каждого элемента выполнить следующие действия: a. Проверить, оканчивается ли число на цифру 5. b. Если да, то добавить его значение к сумме и увеличить счетчик на 1.
5. После завершения цикла проверить значение счетчика: a. Если счетчик равен нулю, вывести сообщение "Таких чисел нет". b. Иначе вычислить среднее арифметическое, разделив сумму на количество чисел, и вывести результат.

Ниже приведен пример кода на Pascal, реализующий описанный алгоритм:

pascalCopy code
program AverageEndingIn5;

const
  N = 30;

var
  arr: array[1..N] of Integer;
  sum, count, i: Integer;
  average: Real;
  found: Boolean;

begin
  { Ввод элементов массива }
  for i := 1 to N do
  begin
    Write('Введите элемент массива №', i, ': ');
    ReadLn(arr[i]);
  end;

  { Инициализация переменных }
  sum := 0;
  count := 0;
  found := False;

  { Подсчет суммы и количества элементов, оканчивающихся на 5 }
  for i := 1 to N do
  begin
    if arr[i] mod 10 = 5 then
    begin
      sum := sum + arr[i];
      count := count + 1;
      found := True;
    end;
  end;

  { Вывод результата }
  if found then
  begin
    average := sum / count;
    WriteLn('Среднее арифметическое чисел, оканчивающихся на 5: ', average:0:2);
  end
  else
    WriteLn('Таких чисел нет');

end.

Программа предоставляет возможность вводить значения элементов массива с клавиатуры и затем находит и выводит среднее арифметическое всех элементов, оканчивающихся на цифру 5. Если таких чисел нет, выводится сообщение "Таких чисел нет".