Помогите с написанием консольной программы в Delphi

[Inori]

Есть задачка :
http://imhocloud.com/image/5S2A


Нужно написать программу
Для массива 2 на 2 написать смог без особых проблем, но вот для 3 на 4 возникают трудности.
Огромное кол-во лишних нулей и неправильность в отображении.

Помогите :3

[min@y™]

возникают трудности

какие ?

[Inori]

Сообщение от min@y™

какие ?

Неправильное отображение, появляются столбцы с нулями и выводят столбцы в таком порядке 1 нечет 2 чет 2 нечет 1 чет

[min@y™]

код где?

[Inori]

{$APPTYPE CONSOLE}

uses
  System.SysUtils, math;
 var i,j:integer;
    s:integer;
    a:array[1..3,1..4]of integer;
    c:array[0..1] of integer;
    b:array[0..1]of integer;
BEGIN

   a[1,1]:=1;
   a[1,2]:=2;
   a[1,3]:=4;
   a[1,4]:=5;
   a[2,1]:=6;
   a[2,2]:=7;
   a[2,3]:=8;
   a[2,4]:=9;
   a[3,1]:=10;
   a[3,2]:=11;
   a[3,3]:=12;
   a[3,4]:=13;




 for i := 1 to 3 do
 for j := 1 to 4 do

 //writeln(a[i,j]);
   begin

if (j mod 2 = 0) then c[j]:=(a[i,j]) else b[j]:=a[i,j];




   end;
  for j := 1 to 4 do
   writeln(c[j]);
   writeln;
    for j := 1 to 4 do

    writeln(b[j]);


      readln;
   end.

[Inori]

Сообщение от min@y™

код где?

Вот код для 2 на 2 выше для 3 на 4

Все делал одинаково, а эффект разный

 
                        {$APPTYPE CONSOLE}

uses
  System.SysUtils, math;
 var i,j:integer;
    s:integer;
    a:array[1..2,1..2]of integer;
    c:array[1..2,1..2] of integer;
    b:array[1..2,1..2]of integer;
BEGIN

   a[1,1]:=1;
   a[1,2]:=2;
   a[2,1]:=3;
   a[2,2]:=4;


 for i := 1 to 2 do
 for j := 1 to 2 do

 //writeln(a[i,j]);
   begin

if (j mod 2 = 0) then c[i,j]:=(a[i,j]) else b[i,j]:=a[i,j];




   end;
  for I := 1 to 2 do

  for j := 1 to 2 do
   writeln(c[i,j]);
   writeln;
    for I := 1 to 2 do
    for j := 1 to 2 do

    writeln(b[i,j]);


      readln;
   end.

Но и тут лишние нули.

[min@y™]

пипец. ушёл пить вотку...

[min@y™]

const
  n = 3;
  m = 4;
type
  tmatrix = array[0..n - 1, 0..m - 1];
  tvector = array[0..n - 1];
var
  row, col: integer;
  a: tmatrix;
  b, c: tvector;
begin

  { --> формирование и вывод матрицы <-- }

  for row:= 0 to n - 1
    for col:= 0 to m - 1 do
      if col and 1 = 0
        then b[row]:= a[row, col]
        else c[row]:= a[row, col];
        
   { --> вывод векторов <-- }

   readln;
end;

ахтунг! писал на заборе!