Матрицы произвольной размерности, Гибкая подпрограмма для обработки матриц Опции

[Reza]

Блин вообще воткнуть не могу как делать. Помогите плZZ с прогой,а то преподы съедят. Надо сделать гибкую подпрограмму для обработки матриц произвольного порядка с фиксированным базовым типом... Даны 2 квадратные матрицы разных порядков. Для каждой из матриц, если суммы элементов строк матрицы различны то транспонировать матрицу.

[volvo]

Код

type
 TType = Integer;
 arrType = array[0 .. pred(maxint div sizeof(TType))] of TType;

procedure proc(var ar; const n: integer);
 var a: arrType absolute ar;

 function ix(row, col: integer): integer;
   begin ix := pred(row) * n + pred(col) end;

 var i, j: integer;
 begin
   for i := 1 to n do
     for j := 1 to n do
       a[ ix(i, j) ] := random(20);
 end;

var
 arr: array[1 .. 5, 1 .. 5] of TType;
 i, j: integer;
begin
 proc(arr, 5);
 for i := 1 to 5 do
   begin
     for j := 1 to 5 do
       write(arr[i, j]: 6);
     writeln
   end;
end.

Идея понятна? Кстати, функции транспонирования матрицы выложены в FAQ...

[Reza]

Идея понятна? Кстати, функции транспонирования матрицы выложены в FAQ...

Не совсем.. Всё равно большое спасибо