Question

Дан массив a из n

целых чисел. Требуется сначала вывести все четные элементы, затем — нечетные.
Формат входных данных
На первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве.

На следующей строке через пробел записаны целые числа ai
(∣∣ai∣∣≤103)

— элементы массива.
Формат выходных данных
Требуется в одной строке через пробел вывести элементы массива в заданном порядке.

Answer 1

var
  i, n: integer;
  a: array[1..1000]of integer;
 begin
  readln(n);
  for i := 1 to n do read(a[i]);
  writeln;
  for i := 1 to n do if (a[i] mod 2 = 0) then write(a[i], ' ');
  for i := 1 to n do if (a[i] mod 2 <> 0) then write(a[i], ' ');
end.