Процедура

[Ellamend]

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

[Vanta11a]

Добавляешь в переменные еще одну матрицу размерностью 1 х n (где n - высота матрицы А), пусть называется Б.
Потом в Б пишешь значения первого столбца, дальше циклом от 2 до m (m - длина матрицы А) сдвигаешь данные на столбец, после цикла пишешь данные из Б в последний столбец А.
Все.

[Serge_Bliznykov]

либо банально в цикле:

var 
   A : array[1..N, 1..M] of integer;
   i, j, K : integer;
begin
  .....
  {сдвиг столбцов циклически вправо на 1} 
  for i:=1 to N do begin
    K := A[i,M]; {сохраним значение последнего столбца I-й строки} 
    for j:=M downto 2 do
        A[i,j] := A[i,j-1]; {сдвигаем вправо переписывая на место текущего предыдущий элемент}
    A[i,1] := K; {последний элемент ставим на место первого}
  end;
  {всё!}