Задан одномерный массив k[n]. создать одномерные массивы l и m. массив l будет содержать четные элементы массива k, а массив m - нечетные.

Приложение......................................................................

Const n=5;
var k,l,m:array[1..n] of integer;
i,p1,p2:integer;
begin
for i:=1 to n do
read(k[i]);  {задаем массив с n=5 елементов}
for i:=1 to n do
if (k[i] mod 2=0) then  {Проверяем четное число или нет}
begin
inc(p1);   {Если да , то 'кидаем' елемент в массив  L}
l[p1]:=k[i];
end
else
begin
inc(p2); {Если нет , то 'кидаем' елемент в массив M}
m[p2]:=k[i];
end;
writeln;    {Вывод}
write('Четные:');
for i:=1 to p1 do
write(l[i],' ');
writeln;
write('Нечетные');
for i:=1 to p2 do
write(m[i],' ');
end.