Модификация двумерных массивов, Поворот матрицы на 90 градусов Опции

[FENIX]

Условия:
1) Массив должен иметь не менее 12 и не более 20 строк и столбцов.
2) Перед обработкой данных необходимо вывести исходный массив на экран.

Задание:
Задан квадратный массив целых чисел в диапазоне от -99 до 99.
Переместить числа так, чтобы эта операция была эквивалентна повороту массива на 90 градусов по часовой стрелке. Результат вывести на экран.

Заранее спасибо.

З.Ы. Всем GL & HF

[volvo]

FENIX
Тогда вот:

Код

Const
 n = 4;
Type
 TMatrix = array[1 .. n, 1 .. n] of integer;

Procedure Transpose(Var res: TMatrix; m: TMatrix);
 var i, j: integer;
 begin
   for i := 1 to n do
     for j := 1 to n do
       res[j, n - i + 1] := m[i, j]
 end;

procedure printMatrix(m: TMatrix);
 var i, j: integer;
 begin
   for i := 1 to n do
     begin
       for j := 1 to n do
         write(m[i, j]:4);
       writeln
     end
 end;

const
 a: TMatrix =
   ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var
 b: TMatrix;

begin
 Writeln('before:');
 PrintMatrix(a);

 Transpose(b, a);

 Writeln('after:')
 PrintMatrix(b)
end.

Все выполняется - в программе присутствуют процедуры с передаваемыми параметрами, и результат - исходная матрица повернута на 90 град. Только добавь генерацию матрицы через Random (я задал ее константой)