Работа 3.7 Упр.6 ГДЗ Семакин 10 класс (Информатика)

Задача

Задана квадратная матрица. Получить транспонированную матрицу (перевернутую относительно главной диагонали).

Подробный ответ

Чтобы получить транспонированную матрицу, нужно поменять местами элементы, симметричные относительно главной диагонали: $$a_{ij} \leftrightarrow a_{ji}$$ при $$i<j$$.

Так как матрица квадратная, после таких перестановок в массиве получится транспонированная матрица.

var
  a: array[1..100,1..100] of integer;
  i,j,n: byte;
  r: integer;
begin
  randomize;
  write(‘размерность: ‘);
  readln(n);
  writeln(‘матрица’);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(61)-30;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do
    for j:=1 to n do
      if i<j then
      begin
        r:=a[i,j];
        a[i,j]:=a[j,i];
        a[j,i]:=r;
      end;
  writeln(‘транспонированная матрица’);
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.