В один массив нужно переслать чётные, а в другой - нечетные элементы матрицы.

[...Diman...]

помогите пожалуйста с задачкой....
дана матрица A, имеющая N строк и N столбцов. Необходимо сформировать два одномерных массива. В один нужно переслать чётные, а в другой - нечетные элементы матрицы. Вывести на экран все массивы...
Пожалуста помогите с данной задачкой...

[maladoy]

program chet_ne4et;
uses crt;
var i,j,k,l,n: integer;
a:array [1..100,1..100] of integer;
chet:array[1..100] of integer;
nechet:array[1..100] of integer;
begin
clrscr;
writeln ('vvedite n');
readln(n);
writeln('vvedite elementy:' ) ;
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,j,']=');
readln(a[i,j]);end;
k:=1;
l:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2 =0 then begin
chet [k]:=a[i,j];
k:=k+1; end
else begin
nechet[l]:=a[i,j];
l:=l+1;
end;
writeln('ishodnyy massiv:');
for i:=1 to n do
for j:=1 to n do
writeln('a[',i,j,']=',a[i,j]);
writeln('chetnyy massiv:');
for i:=1 to k-1 do
writeln('chet[',i,']=',chet[i]);
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
writeln('nechet[',i,']=',nechet[i]);
readln;
end.

[...Diman...]

Сообщение от maladoy

program chet_ne4et;
uses crt;
var i,j,k,l,n: integer;
a:array [1..100,1..100] of integer;
chet:array[1..100] of integer;
nechet:array[1..100] of integer;
begin
clrscr;
writeln ('vvedite n');
readln(n);
writeln('vvedite elementy:' ) ;
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,j,']=');
readln(a[i,j]);end;
k:=1;
l:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2 =0 then begin
chet [k]:=a[i,j];
k:=k+1; end
else begin
nechet[l]:=a[i,j];
l:=l+1;
end;
writeln('ishodnyy massiv:');
for i:=1 to n do
for j:=1 to n do
writeln('a[',i,j,']=',a[i,j]);
writeln('chetnyy massiv:');
for i:=1 to k-1 do
writeln('chet[',i,']=',chet[i]);
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
writeln('nechet[',i,']=',nechet[i]);
readln;
end.

Спасибо огромное...

[maladoy]

Отзыв не забудь

[maladoy]

Не туда запостил