Разделить последовательность А (20) на два массива в один из них четные а в другой нечетные элементы

Заполняешь массив после чего делаешь так (надеюсь заполнять, объявлять массив и шапку писать умеешь, пишу на паскале (и да не забудь объявить еще два массива).

n:=0;

f:=0;

for i=1 to 20 do 20

if a[i]0 then

begin

if a[i] mod 2 = 0 then

b[n+1]:=a[i];

else

c[f+1]:=a[i];

end.

в принципе все, остальное это красивости