Показать сообщение отдельно
  #2  
Старый 19.04.2019, 18:10
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Транспонирование надо делать так
Код:
For i:=1 to n do
  For j:=1 to i do begin
    b:=a[i,j];
    a[i,j]:=a[j,i];
    a[j,i]:=b;
  end;
а то ты дважды переставляешь элементы массива
Ответить с цитированием