четный не четный массив

[shelest]

Все четные элементы массива K поместить в массив L , а нечётные в массив M. Подсчитать количество тех и других.

как поместить четные элементы массива K в массив L , а нечётные в массив M?

program pr416;

{$APPTYPE CONSOLE}
const n=20;
var
K: array [1..n] of integer;
L: array [1..n] of integer;
M: array [1..n] of integer;
c,chetn,nechetn,i:integer;
Begin
chetn:=0;
nechetn:=0;
writeln ('vvedi kolichestvo elementov massiva');
readln (c);
for i:=1 to c do
begin
  readln (K[i]);
end;
for i:=1 to c do
begin
if k[i] div(2)=0
 then
chetn:=chetn+1;
nechetn:=c-chetn;
end;
writeln ( 'chetn' , chetn);
writeln ( 'nechetn' , nechetn);

readln
end.

[NSvirus]

пользуемся оператором mod

for i:=2 to 10 do
if i mod 2=1 then ...
else ...

[shelest]

напишите плиз полностью алгоритм с выводом массивов L и M

[lennon]

мож за тебя экзамен сдать?

[Stilet]

if k[i] div(2)=0
 then begin
  chetn:=chetn+1;
  nechetn:=c-chetn;
  l[chetn]:=k[i];
end else n[nechetn]:=k[i]
...
А потом в цикле
 if l[i]<>0 then выводим
 if n[i]<>0 then выводим