Помогите пожалуйста решить задачу

[Sabber]

Господа, помогите решить пожалуйста, если можно, а то я вообще что то не могу.
Дан массив А(n ), nЈ 12, целого типа. Получить вектор М, расположив в нем вначале все четные элементы массива А, затем - все нечетные. Порядок следования друг за другом положительных элементов не менять, то же - для отрицательных.

Заранее спасибо!

[programer_tang]

А что тут сложного. вот варианта решения:

создаеш новий масив А1(n), поочереди делиш все елементы масива А(n) на 2 и смотриш остаток, за первым проходом масива А(n) записываеш в масив А1(n)только те елеенты в которых остаток = 0 (четные) за второй те в которых остаток !=0.

конешно можно поигратся с перестановками елементов масива А(n) в самом масиве, но ИМХО это дольше и больше проблем.

[puporev]

конешно можно поигратся с перестановками елементов масива А(n) в самом масиве,

Да это и по условию не требуется, нужен новый массив, так что однозначно первый вариант..

[Sabber]

Вот в этом то и проблема, я не зная как код написать

[puporev]

uses crt;
const n=12;
var a,m:array[1..n]of integer;
    i,j:integer;
begin
clrscr;
writeln('Введите в строку через пробел 12 элементов массива: ');
for i:=1 to n do
read(a[i]);
readln;
j:=0; //счетчик нового массива=0
for i:=1 to n do
if a[i] mod 2 =0 then //сначала звписываем все четные
   begin
    j:=j+1; //увеличиваем счетчик
    m[j]:=a[i];
   end;
for i:=1 to n do  //сейчас счетчик уже не равен 0
if a[i] mod 2<>0 then //записываем все нечетные
   begin
    j:=j+1;
    m[j]:=a[i];
   end;
writeln('Массив М:');
for i:=1 to n do
write(m[i],' ');
readln
end.

[Sabber]

Спасибо огромное вы меня очень выручили! Я начинал правильно, а дальше никак не мог понять что делать, сейчас немного разобрался.