Двухмерный массив...

[L_Killer]

Уже третий день мозг себе выношу - ничего не могу придумать... Помогите, пожалуйста, очень надо!)

Нужно написать процедуру, которая перносит первые p столбцов в конец массива, соблюдая порядок их следования. Массив двухмерный из 12 строк.

И еще был бы признателен, если бы помогли с выводом двухмерного массива - я вывожу с помощью gotoxy() - можно как-нибудь без него?

[RUSt88]

обращайтесь, выполню за вознаграждение

[Александра1000000]

А я вывожу так:

 cout<<"     [0]  [1]  [2] [4] "<<endl;
                  for(int x=0; x<arraySaze; x++){  //печатает индексы строк
                     cout<<"["<<x<<"]";

                  for(int y=0; y<arraySaze1;y++)  //печатает массив
                   cout <<setw(3)<<t[x][y]<<"  ";
                   cout<<endl;  }

[L_Killer]

Ну это не на паскале... А в паскале своя специфика вывода.
Мне это больше РНР напоминает...

[Костя КС]

program ll;
const
n = 12; m = 5;

type mas = array[0..n,0..m] of integer;

var
A : mas;
i,j,p : byte;

procedure zam (var A : mas; i1 : integer; i2 : integer);
var
x  : integer;
j   : byte;
begin
  for j := 0 to m do
   begin
   x       := A[i1,j];
   A[i1,j] := A[i2,j];
   A[i2,j] := x;
   end;
end;

begin
randomize;

for  i := 0 to n do begin
 for j := 0 to m do  begin
   A[i,j] := round(50 - 100*random);
   write(A[i,j]:3, '  ');
   end;
   writeln;
   end;

  writeln('------------------------');
  writeln;
  
  readln(p);
  
  for i := 0 to p-1 do
    zam(A, i, n-p+i+1);
    
   for  i := 0 to n do begin
 for j := 0 to m do write(A[i,j]:3, '  ');
   writeln;
   end;
   
   writeln('------------------------');
  writeln;
   end.

надеюсь правильно понял задание