Отсортировать массив по четным элементам ,методом пузырька!

[DoDge_VipeR]

Тс, в вашем примере как раз таки сортируются нечетные а четные остаются как были

[Babur4iK]

че-то не догоняю((

[Babur4iK]

type
mas = array[1..100] of integer;
var

a,b:mas;
i,j,n:integer;

procedure BubbleSort( n : integer; var A : mas );
var
i, j : Integer;
t : integer;
begin


for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] > a[j+1] then
begin
t := a[j];
a[j] := a[j+1];
a[j+1] := t;
end;



end;


begin

writeln('Введите размер массива');
readln(n);

for i:=1 to n do begin
write('M[',i,']=');
read(a[i]); end;

writeln('Исходный массив');

for i:=1 to n do
write(a[i]:4);
writeln;


j:=1;
for i:=1 to n do

if (not odd(a[i])) then begin b[j]:=a[i]; inc(j); end;
bubblesort(j,b);

j:=1;
for i:=1 to n do
begin
if (not odd(a[i])) then begin a[i]:= b[j]; inc(j) end; end;


writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
writeln;
end.

Исходный массив
10 9 8 7 6 5 4 3 2 1
Отсортированный массив
0 9 2 7 4 5 6 3 8 1

Помогите почему-то ноль в углу непонятно??в чем ошибка?

[Babur4iK]

помогите люди)

помогите люди)я вообще не знаю почему этот ноль там появляется