написать программу на Паскаль

[Anastasiya326]

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.

[newerow1989]

var p:array[1..10] of integer;
    i,j,n,z:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   n:=0;
   For i:=1 to 10 do
      If p[i] mod 2=0 then
      begin
         n:=n+1;
         z:=p[i];
         For j:=i downto n+1 do
            p[j]:=p[j-1];
         p[n]:=z;
      end;
   For i:=1 to 10 do
      Write(p[i]:3,'  ');
   Writeln;
   Readln;
end.

Скопировано от сюда: http://programmersforum.ru/showthread.php?t=315594