`Text{Xem hình}`

`text{NL: Chào đồng đội cũ ở programmer ^^}`

$#Trumtinhoc$

uses crt;

var A : array [1 .. 1000] of integer;

i, n, j, k, h, m : integer;

begin

clrscr;

write('Nhap n = '); readln(n);

for i := 1 to n do read(A[i]);

i := 1; j := 1;

while i <= n do begin

if A[i] mod 2 = 0 then

begin

write(A[i],' '); k := 1; h := i;

while (k = 1) and (j <= n) do

if A[j] mod 2 <> 0 then begin write(A[j],' ');

k := 0; m := j; j := j + 1;  end

else j := j + 1; end;

i := i + 1; end;

for i := m + 1 to n do if A[i] mod 2 <> 0 then write(A[i],' ');

for i := h + 1 to n do if A[i] mod 2 = 0 then write(A[i],' ');

readln

end.