помогите с задачей

[VJet]

Дана матрица A [12,4] - места в вагоне.
1) Заполнить её рядом натуральных чисел от 1 до 48. записать матрицу.
2) Реализовать замену любого элемента матрицы и выбрать N произвольных мест. вновь записать матрицу A [12,4].
3) Определить число чётных и нечётных элементов (верхних и нижних мест).
4) Транспонироввать матрицу A - заменить строки столбцами и записать в B [4,12].

[newerow1989]

var a:array[1..12,1..4] of byte;
    b:array[1..4,1..12] of byte;
    i,j,n:integer;
begin
   // 1 задача
   Randomize;
   For i:=1 to 12 do
      For j:=1 to 4 do
         a[i,j]:=0;
   n:=0;
   Repeat
      n:=n+1;
      i:=Random(12)+1;
      j:=Random(4)+1;
      If a[i,j]=0 then
         a[i,j]:=n else
         n:=n-1;
   Until n=48;
   For i:=1 to 12 do
   begin
      For j:=1 to 4 do
         Write(a[i,j],'  ');
      Writeln;
   end;
   Writeln;
   // 4 задача
   For i:=1 to 12 do
      For j:=1 to 4 do
         b[j,i]:=a[i,j];
   For i:=1 to 4 do
   begin
      For j:=1 to 12 do
         Write(b[i,j],'  ');
      Writeln;
   end;
   Readln;
end.

Сойдет?

[VJet]

большое спасибо

[newerow1989]

Пожалуйста!