Pascal!
Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

Чтобы решить задачу, нужно выполнить несколько шагов:

1. Определение отрицательных элементов массива: Пройтись по массиву и найти все элементы, которые меньше нуля.

2. Вычисление среднего арифметического отрицательных элементов: Если отрицательные элементы есть, то вычисляем их сумму и делим на количество таких элементов.

3. Поиск минимального элемента массива: Определить индекс минимального элемента массива, чтобы позже его заменить.

4. Замена минимального элемента на среднее арифметическое отрицательных элементов: Заменить минимальный элемент массива на ранее вычисленное значение среднего.

Пример решения на языке Pascal

Вот пример программы, которая реализует данное решение:

pascal
program ReplaceMinWithAverage;
var
  arr: array[1..100] of integer;
  n, i, count, minIndex: integer;
  sum, average: real;
begin
  // Ввод количества элементов массива
  writeln('Введите количество элементов массива:');
  readln(n);
  
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
    readln(arr[i]);
  
  // Инициализация переменных
  sum := 0;
  count := 0;
  minIndex := 1;
  
  // Нахождение суммы отрицательных элементов и их количества
  for i := 1 to n do
  begin
    if arr[i] < 0 then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
    // Одновременно ищем минимальный элемент
    if arr[i] < arr[minIndex] then
      minIndex := i;
  end;
  
  // Проверка наличия отрицательных элементов
  if count > 0 then
  begin
    average := sum / count; // Среднее арифметическое отрицательных элементов
    arr[minIndex] := round(average); // Замена минимального элемента на среднее
  end
  else
  begin
    writeln('Отрицательных элементов в массиве нет.');
    exit;
  end;
  
  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
end.

Объяснение программы:

1. Инициализация и ввод данных:

   • Пользователь вводит количество элементов массива.
   • Массив заполняется данными, которые вводит пользователь.

2. Нахождение отрицательных элементов:

   • Цикл проходит по массиву, вычисляя сумму отрицательных элементов (sum) и их количество (count).

3. Определение минимального элемента:

   • Минимальный элемент определяется одновременно с поиском отрицательных чисел.

4. Замена минимального элемента:

   • Если отрицательные числа есть, то среднее арифметическое вычисляется и округляется с помощью round (это необязательно, но в некоторых задачах требуется целое число).
   • Минимальный элемент заменяется на вычисленное значение.

5. Вывод результата:

   • Изменённый массив выводится на экран.

Пример выполнения:

Ввод:

Введите количество элементов массива:
5
Введите элементы массива:
3 -4 6 -2 8

Вывод:

Измененный массив:
3 -3 6 -2 8

Таким образом, минимальный элемент массива (в данном примере -4) заменён на среднее арифметическое отрицательных элементов (-4 и -2), равное -3.