Транспонировать матрицу Опции

[lacomca]

Транспонировать матрицу A=(d(ij))^m*m, где m<=10. Проверить является ли она симметричной, если да, то переменной Q присвоить 1, в противном случае - 0.

||0,5 1 2||
A= ||1 3,2 1||
||2 1 0,5||

Квадратная матрица называется симметричной матрицей, если ее элементы, симметричные относительно главной диагонали, равны между собой, т.е. aij = aji для всех i, j.
Матрица является симметричной, если она совпадает со своей транспонированной матрицей (т.е. A = A'). Другими словами, нижний треугольник квадратной матрицы является "зеркальным отражением" верхнего треугольника.

[мисс_граффити]

Зачем нам целая вспомогательная матрица?

procedure transp(var A2:TMatrix);
 var i,j:byte;
 vsp:integer;
 begin
 for i:=0 to m-1 do  {нумерация в массиве с 0}
  for j:=0 to i do
  begin
   vsp:=A2[i,j];
   A2[i,j]:=A2[j,i];
   A2[j,i]:=vsp;
  end;
  end;