|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#2
|
|||
|
|||
Транспонирование надо делать так
Код:
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; |