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

Question

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

Comments

Помогите плиз

Answer 1

Заполняешь массив после чего делаешь так(надеюсь заполнять,объявлять массив и шапку писать умеешь,пишу на паскале(и да не забудь объявить еще два массива).
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.
в принципе все,остальное это красивости

Comments

я так и написал но там встречено 'else' а ожидался оператор

---

program sro3_2;
var
A,B,C:array [1..20] of integer;
n,k,l,i:integer;
begin
writeln('|||Входные данные задачи|||');
write('Введите количество элементов:');
readln(n);
writeln('Массив А:');
for i:=1 to n do;
read(A[i]);
k:=0;
l:=0;
for i:=1 to 20 do if
if a[i]<>0 then
begin
if a[i] mod 2=0 then
b[k]:=a[i];
else
c[l]:=a[i];
end.

writeln('Массив B с четными элементами:',b[k]);
read(b[k]);
writeln('Массив C с нечетными элементами:',c[l]);
read(c[l]);
writeln;
writeln;
end.

---

Вот я так напмсал но там неправильно решает