Вводится сначала число N, а затем N чисел. Выведите эти N чисел в следующем порядке: сначала выводятся все нечетные числа в том порядке, в каком они встречались во входном файле, а затем - все четные.
Ответ
Автор - 65536
var a:array of integer; n,i:integer; begin readln(n); setlength(a,n); for i:=0 to n-1 do readln(a[i]);
for i:=0 to n-1 do if a[i] mod 2=1 then write(a[i],' '); writeln(); for i:=0 to n-1 do if a[i] mod 2=0 then write(a[i],' '); end.