Помогите пожалуйста. Нужно на Паскале составить программу. Задание:

Question

Задан массив с количеством элементов N. Сформулируйте два массива: в первый включите элементы исходного массива с чётными номерами, а во второй с не чётными.

Григорий Шумилкин · Accepted Answer

k:=1; l:=1; 
for n:=1 to N do begin 
if (n mod 2 =0) then begin A[k]:=X[n]; inc(k); end; 
if (n mod 2 <>0) then begin B[l]:=X[n]; inc(l); end; 
end;

Дмитрий Костюченко · Answer

в чём проблема? попробовали бы написать сами, выложили код и вам бы помогли, а так .. 
 
цикл 
если ( "номер" мод 2 = 0) 
записывать в один массив 
иначе 
записывать в другой 
 
мод остаток от деления