Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Очень срочноо!!!!!!!! в паскале
Вводится сначала число N, а затем N чисел. Выведите эти N чисел в следующем порядке: сначала выводятся все нечетные числа в том порядке, в каком они встречались во входном файле, а затем - все четные.

Ответ оставил Гость

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.