Разделить последовательность А(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. в принципе все,остальное это красивости