Задача

[Demilla]

Дана матрица А имеющая N строк и N столбцов. Сформируйте два одномерных массива.
В один перешлите четные, а в другой-нечетные элементы матрицы. Выведите на экран все массивы.

[newerow1989]

const n=10;
var a:array[1..n,1..n] of byte;
    i,j:byte;
    b,c:array of byte;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(255);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   SetLength(b,0);
   SetLength(c,0);
   For i:=1 to n do
      For j:=1 to n do
         If a[i,j] mod 2=0 then
         begin
            SetLength(b,High(b)+2);
            b[High(b)]:=a[i,j];
         end else
         begin
            SetLength(c,High(c)+2);
            c[High(c)]:=a[i,j];
         end;
   For i:=Low(b) to High(b) do
      Write(b[i],'  ');
   Writeln;
   Writeln;
   For i:=Low(c) to High(c) do
      Write(c[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[Demilla]

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

[newerow1989]

Пожалуйста!