18. В массиве из 10 целых чисел заменить все элементы, меньшие среднего арифметического, на минимальный...

program ReplaceElements;

var arr: array[1.10] of Integer; i, sum, min, max, avg: Integer;

begin sum := 0; min := 9999; max := -9999;

for i := 1 to 10 do begin

Write('Enter element ', i, ': ');
Readln(arr[i]);
sum := sum + arr[i];
if arr[i] < min then
  min := arr[i];
if arr[i] > max then
  max := arr[i];

end;

avg := sum div 10;

for i := 1 to 10 do begin

if arr[i] < avg then
  arr[i] := min
else if arr[i] > avg then
  arr[i] := max;
Write(arr[i], ' ');

end;

end.

Программа на Delphi7 для решения данной задачи выглядит следующим образом:

program ReplaceElements;

var
  arr: array[1.10] of Integer;
  i, sum, average, min, max: Integer;

begin
  sum := 0;
  min := 1000;
  max := -1000;

  // Ввод элементов массива
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);
    sum := sum + arr[i];
    if arr[i] < min then
      min := arr[i];
    if arr[i] > max then
      max := arr[i];
  end;

  // Вычисление среднего арифметического
  average := sum div 10;

  // Замена элементов массива
  for i := 1 to 10 do
  begin
    if arr[i] < average then
      arr[i] := min
    else if arr[i] > average then
      arr[i] := max;
  end;

  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');

  readln;
end.

Эта программа сначала запрашивает у пользователя ввод 10 целых чисел, после чего вычисляет среднее арифметическое, минимальное и максимальное значение в массиве. Затем происходит замена элементов массива в соответствии с условиями задачи. Результат выводится на экран.

Для решения этой задачи нам нужно выполнить несколько шагов: найти среднее арифметическое элементов массива, определить минимальный и максимальный элементы, а затем заменить элементы массива в соответствии с условиями задачи. Вот подробное описание каждого из этапов и пример реализации на Delphi 7.

Шаги решения:

1. Инициализация массива: Создадим массив из 10 целых чисел.
2. Вычисление среднего арифметического: Найдем среднее арифметическое всех элементов массива.
3. Поиск минимального и максимального элементов: Определим минимальный и максимальный элементы в массиве.
4. Замена элементов:
   • Все элементы, меньшие среднего арифметического, заменим на минимальный элемент.
   • Все элементы, большие среднего арифметического, заменим на максимальный элемент.
5. Вывод измененного массива.

Пример программы на Delphi 7:

program ReplaceArrayElements;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  arr: array[1.10] of Integer;
  i: Integer;
  sum, avg: Real;
  min, max: Integer;

begin
  // Инициализация массива
  arr[1] := 5;
  arr[2] := 8;
  arr[3] := 3;
  arr[4] := 12;
  arr[5] := 7;
  arr[6] := 9;
  arr[7] := 15;
  arr[8] := 2;
  arr[9] := 6;
  arr[10] := 10;

  // Вычисление среднего арифметического
  sum := 0;
  for i := 1 to 10 do
    sum := sum + arr[i];
  avg := sum / 10;

  // Поиск минимального и максимального элементов
  min := arr[1];
  max := arr[1];
  for i := 2 to 10 do
  begin
    if arr[i] < min then
      min := arr[i];
    if arr[i] > max then
      max := arr[i];
  end;

  // Замена элементов
  for i := 1 to 10 do
  begin
    if arr[i] < avg then
      arr[i] := min
    else if arr[i] > avg then
      arr[i] := max;
  end;

  // Вывод измененного массива
  Writeln('Измененный массив:');
  for i := 1 to 10 do
    Write(arr[i], ' ');
  Writeln;

  Readln;
end.

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

• Инициализация массива: Мы вручную задаем значения массива из 10 чисел. В реальных задачах можно было бы запрашивать их у пользователя или генерировать случайным образом.
• Вычисление среднего арифметического: Мы суммируем все элементы массива и делим на количество элементов.
• Поиск минимального и максимального элементов: Мы проходим по массиву, обновляя минимальный и максимальный элементы.
• Замена элементов: Проходим по массиву и заменяем элементы в зависимости от их отношения к среднему арифметическому.
• Вывод результата: Печатаем измененный массив.

Этот код демонстрирует основные операции с массивами в Delphi и иллюстрирует использование циклов и условий для обработки данных.