Можно сделать примерно так:
(на Паскале, предполагается, что массивы A[n, m] и B[n] уже объявлены и введены значения их элементов)


for j:=1 to m do
begin
for i:=1 to n do B[i]:=A[i, m]; //вгоняем m-й столбец во временный массив B[n]

A[1, m]:=B[n]; //на 1-й строке должен быть элемент из последней строки

for i:=2 to n do A[i, m]:=B[i-1]; //заполняем оставшуюся часть m-го столбца в массиве A

end;