Сортировка шейкером нечетных элементов

[Ангелина-ванила]

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

[Stilet]

А ты как нибудь пыталась?

[Ангелина-ванила]

я пыталась но лажа получалась, не могу понять эту сортировку(

[psycho-coder]

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

[Ангелина-ванила]

а чётные элементы это те которые стоят на чётных местах??))

[psycho-coder]

нет это значение элемента 2, 4, 6, 8, и т.д. А стоять они могу где угодно.

[Ангелина-ванила]

а я сделала, что меняются те которые стоят на нечётных местах

[psycho-coder]

Шейкерная сортировка

Сортировка перемешиванием (англ. Cocktail sort) - разновидность пузырьковой сортировки. Отличается тем, что просмотры элементов выполняются один за другим в противоположных направлениях, при этом большие элементы стремятся к концу массива, а маленькие - к началу.

Лучший случай для этой сортировки - отсортированный массив (О(n)), худший - отсортированный в обратном порядке (O(n²)).

Подробности http://dic.academic.ru/dic.nsf/ruwiki/1199252

[Ангелина-ванила]

я сделала вот так,,,

program 111;
uses crt;
const n=20;
var a:array [1..n] of integer;
i,j,nmax,buf:integer;
Begin
clrscr;

randomize;
writeln('ishodni massiv:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
writeln;
for i:=1 to n-1 do
if odd(i) then
begin
nmax:=i;
for j:=i+2 to n do
if odd(j)and(a[j]>a[nmax]) then nmax:=j;
buf:=a[i];
a[i]:=a[nmax];
a[nmax]:=buf;
end;
writeln('uporyado4eni massiv: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.