Упорядочить нечетные элементы, оставив четные на местах

[JegorX]

Здравствуйте

Прошу помощи в написании следующей программы:

В одномерном массиве упорядочить нечетные элементы, оставив четные на местах. Сортировка шейкерная.

Последней идеей было написание этой программы путём использования нескольких массивов, но у меня это не вышло(

[Zer0]

Что подразумевается под "нечетными элементами"? Элементы под индексами 1,3,5... или что сами элементы нечетные?
Если первое - то все довольно просто, шаг цикла сделать равным 2
Если второе - то в доп массив записать нечетные элементы, отсортировать этот массив и потом по очереди заменять нечетные элементы исходного массива элементами второго (т.е. идем циклом по первому массиву, нашли нечетный элемент, в памяти увеличили отдельный счетчик на единицу, взяли из второго массива под этим индексом число и поменяли, и т.д.)

[JegorX]

Спасибо, вы конкретизировали мою идею по поводу нескольких массивов
Подразумевалось второе.

Буду пытаться технически это реализовать, однако учитывая нехватку опыта буду рад, если поможете мне в этом

[Zer0]

могу помочь всем кроме сортировки, шейкерную сходу не вспомню
кстати, язык какой?

[mill63]

Zer0, помои , пожалуйста, решить задачу, очень срочно надо, вопрос жизни и смерти. Не знаю, как написать здесь в ЛС, поэтому вот мой емэйл

remzrazors@mail.ru

Очень прошу, отзовись

[JegorX]

Язык Free paskal.

[val_nnm]

Кому интересно. Вот написал вариант сортировки нечётных элементов без дополнительного массива. В сортировке используються индекса предпоследнего и последнего найденного нечётного элемента (oddI1 и oddI2 соответсвенно). Подробно обьяснить весь алгоитм сейчас немогу. Но если будут конкретные вопросы могу ответить.

const maxN = 10;
var a:array[0..maxN-1] of integer;
    n:integer;
    oddI1,oddI2:integer;
    i:integer;
    swaped:boolean;
    sortAreaBegin:integer;
    sortAreaEnd:integer;
    temp:integer;
Begin
  n := maxN;
  randomize;
  for i := 0 to n-1 do
    a[i] := Random(10);
  for i := 0 to n-1 do
    write(a[i]:3,' ');
  writeln;
  
  sortAreaBegin := 0;
  sortAreaEnd := n - 1;
  oddI1 := -1;
  oddI2 := -1;
  repeat
    swaped := false;
    for i := sortAreaBegin to sortAreaEnd do Begin
      if (odd(A[i])) then Begin
        oddI1 := oddI2;
        oddI2 := i;
        if (oddI1>=0) then Begin
          if (A[oddI1]>A[oddI2]) then Begin
            temp := A[oddI1];
            A[oddI1] := A[oddI2];
            A[oddI2] := temp;
            swaped := true;
          end;
        end;
      end;
    end;
    if (not(swaped)) then break;
    oddI2 := oddI1;
    sortAreaEnd := oddI1-1;
    swaped := false;
    for i := sortAreaEnd downto sortAreaBegin do Begin
      if (odd(A[i])) then Begin
        oddI1 := oddI2;
        oddI2 := i;
{        if (oddI1>=0) then Begin } { Здесь это условие выполяеться всегда }
          if (A[oddI1]<A[oddI2]) then Begin
            temp := A[oddI1];
            A[oddI1] := A[oddI2];
            A[oddI2] := temp;
            swaped := true;
          end;
{        end;}
      end;
    end;
    oddI2 := oddI1;
    sortAreaBegin := oddI1+1;
  until not swaped;

  for i := 0 to n-1 do
    write(a[i]:3,' ');
  writeln;
End.

p.s. если будете использовать мой код. Погоняйте его много раз на разных данных. Я его несколько раз прогнал, вроде выдаёт правильный результат, но всёже я мог допустить гденибуть ошибку.

[JegorX]

val_nnmо

Благодарю.

Ваш код даёт на выходе отсортированный массив в порядке уменьшения значения, но сортирует всё - и чётные и нечётные.

Тем не менее всё равно спасибо

[val_nnm]

Подправил.

const maxN = 10;
var a:array[0..maxN-1] of integer;
    n:integer;
    oddI1,oddI2:integer;
    i:integer;
    swaped:boolean;
    sortAreaBegin:integer;
    sortAreaEnd:integer;
    temp:integer;
Begin
  n := maxN;
  randomize;
  for i := 0 to n-1 do
    a[i] := Random(10);


  for i := 0 to n-1 do
    write(a[i]:3,' ');
  writeln;

  
  sortAreaEnd := n - 1;
  oddI2 := 0;
  { Находим первый нечётный элемент }
  while (oddI2<n) do Begin
    if (odd(A[oddI2])) then break;
    oddI2 := oddI2+1;
  end;
  oddI1 := -1;
  sortAreaBegin := oddI2; { Начинаем проход сортировать элементы с него }
  repeat
    swaped := false;
    for i := sortAreaBegin+1 to sortAreaEnd do Begin
      if (odd(A[i])) then Begin
        oddI1 := oddI2;
        oddI2 := i;
        if (A[oddI1]>A[oddI2]) then Begin
          temp := A[oddI1];
          A[oddI1] := A[oddI2];
          A[oddI2] := temp;
          swaped := true;
        end;
      end;
    end;
    if (not(swaped)) then break;
    oddI2 := oddI1;
    sortAreaEnd := oddI1;
    swaped := false;
    for i := sortAreaEnd-1 downto sortAreaBegin do Begin
      if (odd(A[i])) then Begin
        oddI1 := oddI2;
        oddI2 := i;
        if (A[oddI1]<A[oddI2]) then Begin
          temp := A[oddI1];
          A[oddI1] := A[oddI2];
          A[oddI2] := temp;
          swaped := true;
        end;
      end;
    end;
    oddI2 := oddI1;
    sortAreaBegin := oddI1;
  until not swaped;

  for i := 0 to n-1 do
    write(a[i]:3,' ');
  writeln;
End.