В массиве поставить вначале все четные, а затем все нечетные цифры в массиве (Написать программу в коде делфи)

[Murfik97]

В массиве поставить вначале все четные, а затем все нечетные цифры в массиве

[Murfik97]

Могу скинуть что получилось, но я не знаю как в одном массиве это сделать поэтому сделал в двух

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', ',', #8]) then key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a: array[1..20] of integer ;
    s: real;
 m,c,   i, n: integer;
      begin
          label6.Caption:='';
          label2.Caption:='';
          label3.Caption:='';
            if Edit1.Text='' then
              begin
                showmessage('Aaaaeoa oiou ?oi-oi!!');
                  exit;
              end;
                n:=strtoint(Edit1.text);
                  if (n>20) or (n<1) then
                    begin
                      showmessage('n aie?i auou ia iaiuoa 1, ii e ia aieuoa 100');
                        exit;
                    end;
                      for i:=1 to n do
                    begin
                      a[i]:=Random(20);
                        label6.Caption:=label6.Caption + inttostr(a[i])+' ';
                          if (a[i] mod 2 = 0)   then
                            label3.Caption:=label3.Caption + inttostr(a[i])+' '
                            else
                            label2.Caption:=label2.Caption + inttostr(a[i])+' '


                    end;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Murfik97]

Как мне все это изменить с одним массивом??

[Murfik97]

Никто случайно не сможет помочь?

[Rin]

type n=20;
var
  m:array [1..n] of integer;
.....

procedure swap(var a,b:integer);
var c:integer;
begin
  c:=a;
  a:=b;
  b:=c;
end;

procedure mod2_notmod2;
var i:integer;
i_first,i_last:integer;
begin
  caption:='';
  for i:=1 to n do m[i]:=i;
    i_first:=1;
    i_last:=n;
  repeat
    for i:=i_first to n do
      if (m[i] mod 2=0) then break;
    i_first:=i;
    for i:=i_last downto 1 do
      if (m[i] mod 2<>0) then break;
      i_last:=i;
    swap(m[i_first],m[i_last]);
  until i_first=n;
end;