Массивы. Поменять местами все min и max (даже если будет 4 -min и 1-max).

[Виталик124]

Дан вектор (одномерный массив). Определить min и max элементы, поменять все минимальные и максимальные элементы даже если 1 - максимальный и
5 - минимальных, чтобы все они менялись местами! Пожалуйста!

Ниже программа, которая меняет местами min и max, но только делает один обмен!

program pomenyat_mestami_max_i_min;

var
  min, m_min, max, m_max, i, n, k: integer;
  a: array[-100..100] of integer;

begin
  randomize;
  writeln('vvedite_razmernost_vektora');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(10) - 3;
    write('  ', a[i]);
  end;
  min := a[1];
  for i := 2 to n do
  begin
    if a[i] < min then
      min := i;
  end;
  max := a[n];
  for i := 1 to n do
  begin
    if a[i] > max then
      max := i; 
  end;
  writeln;
  writeln('MESTO MAX = ', max);
  writeln('MESTO MIN = ', min);
  k := a[min];
  a[min] := a[max];
  a[max] := k;
  writeln('otsortirovannaya : ');
  for i := 1 to n do 
    write('  ', a[i]);
end.

[BDA]

1) В данном коде происходит непонятно что (min и max интерпретируются то как значения экстремумов, то как их позиция)
2) Алгоритм:
Проходите по массиву и находите значения максимального и минимального
Проходите второй раз, если текущий элемент равен максимальному значению, то присваиваете минимальное, и наоборот

[Serge_Bliznykov]

В принципе я полностью согласен с BDA!

для автора топика... уточняющий вопрос...

Определить min и max элементы, поменять все минимальные и максимальные элементы даже если 1 - максимальный и 5 - минимальных, чтобы все они менялись местами!

вот тут возможны нюансы в понимании, что значит "все они поменялись местами"!

Вот, например, дан такой массив:
5 5 5 5 4 1 2 3

после выполнения (всех замен), какой массив должен получится?

[Виталик124]

Спасибо! Всё получилось! Программа ниже!

[Виталик124]

Сообщение от Serge_Bliznykov

В принципе я полностью согласен с BDA!

для автора топика... уточняющий вопрос...

вот тут возможны нюансы в понимании, что значит "все они поменялись местами"!

Вот, например, дан такой массив:
5 5 5 5 4 1 2 3

после выполнения (всех замен), какой массив должен получится?

Вообщем должно получится так: вместо 5 должна быть 1, а вместо 1- пятерка, то-есть:1 1 1 1 4 5 2 3.

Вот программа которая это делает:

program pomenyat_mestami_vse_MIN_I_MAX;

var
  n, i, j, max, min, p_max, p_min: integer;
  a: array[1..100] of integer;

begin
  randomize;
  writeln('vvedite_vektor');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(10) - 4;
    write('  ', a[i]);
  end;
  max := a[1];
  p_max := 1;
  for i := 1 to n do
  begin
    if a[i] > max then
    begin
    max:=a[i];
      p_max := i;
    end;
  end;
  min := a[1];
  p_min := 1;
  for i := 1 to n do
  begin
    if a[i] < min then
    begin
    min:=a[i];
      p_min := i;
    end;
  end;
  writeln;
  writeln('MAX = ', max);
  writeln('MIN = ', min);
  writeln('POZ_MAX = ', p_max);
  writeln('POZ_MIN = ', p_min);
  for i := 1 to n do
    if a[i] = max then
      a[i] := min
  else
    if a[i] = min then
      a[i] := max;
  for i := 1 to n do
  begin
    write('  ', a[i]);
  end;
end.

[Serge_Bliznykov]

пропустили строчку (выделил):

max := a[1];
p_max := 1;
  for i := 1 to n do
  begin
    if a[i] > max then
    begin
    max:=a[i];
      p_max := i;
    end;
  end;

неверно написали сравнение (исправил):

min := a[1];
  p_min := 1;
  for i := 1 to n do
  begin
    if a[i] < min then
    begin
    min:=a[i];
      p_min := i;
    end;
  end;

ну и поиск мин/макс немного избыточный. (я бы проще написал!)
Но, в целом, после моих исправлений, должно работать!

Если написали самостоятельно, то уже неплохо, зачёт!

[Виталик124]

Нормально, я только учусь! Спасибо!