Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит все минимальные значения и заменяет их на максимальные. Гарантируется, что в массиве есть хотя бы два разных элемента. В качестве результата необходимо вывести измененный массив, каждый элемент массива выводится с новой строчки. Например, для массива из восьми элементов: 29 4 115 7 195 25 4 106 программа должна вывести (по одному числу в строке) числа: 29 195 115 7 195 25 195 106 Паскаль const N = 30; var a: array [1..N] of longint; i, j, k: longint; begin for i := 1 to N do readln(a[i]); ... end.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(3);

 a.Println;

 var (mx, mn) := (a.Max, a.Min);

 a.Transform(p -> p = mn ? mx : p);

 a.PrintLines

end.

Answer 2

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

Вот полный код на Pascal для решения этой задачи:

pascalCopy code
const
  N = 30;

var
  a: array[1..N] of longint;
  i, minValue, maxValue: longint;

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

  // Найдем минимальное и максимальное значения в массиве
  minValue := a[1];
  maxValue := a[1];

  for i := 2 to N do
  begin
    if a[i] < minValue then
      minValue := a[i]
    else if a[i] > maxValue then
      maxValue := a[i];
  end;

  // Заменим все минимальные значения на максимальные
  for i := 1 to N do
  begin
    if a[i] = minValue then
      a[i] := maxValue;
    writeln(a[i]); // Выводим элементы массива
  end;
end.

Этот код сначала находит минимальное и максимальное значение в массиве, а затем заменяет все минимальные значения на максимальное. Каждый элемент массива выводится с новой строки.