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

[Reza]

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

[klem4]

Еще покороче можно :

uses crt;
var
   c : array[1..7,1..8] of integer;
   m : array[1..7] of integer;
   s,i,j : integer;
begin

   clrscr;

   randomize;

   for i := 1 to 7 do begin
      writeln;
      s := 0;
      for j := 1 to 8 do begin
         c[i,j] := random(4)-2;
         if c[i,j] > 0 then s := s + c[i,j];
         write(c[i,j]:3,'  ');
      end;

      m[i] := s;
   end;

   writeln;

   for i := 1 to 7 do writeln('i=',i,'   m[',i,']=',m[i]);

   readln
end.