nn jj

Ответ от Gennady[гуру]
Доброго времени суток.
Не совсем понятно, что подразумевается под "сначала нечетные, а затем четные"? Элементы массива четные и нечетные или их индексы?
Если элементы, то
j := 0;
for i:=1 to 100 do
if jj[ i ] mod 2 = 1 then begin
Inc(j);
nn[j] := jj[ i ];
end;
for i:=1 to 100 do
if jj[ i ] mod 2 = 0 then begin
Inc(j);
nn[j] := jj[ i ];
end;
Есть и другое решение. Сначала отсортировать исходный массив так, чтобы в нем стояли сначала нечетные, а затем четные и после этого переписать массив jj в nn. Примерно так
k:=1;
for i:=1 to n do
if jj[ i ] mod 2 = 1 then begin
B := jj[ j ];
for m:=i downto k do jj[m] := jj[m-1];
jj[k] := B;
Inc(k);
end;
for i:=1 to n do nn[ i ] := jj[ i ];
Для случая индексов массива подумайте сами.
Удачи!