Program Transp; {Данная программа может быть предложена Сергеевым в качестве дополнительной} {http://studentps.narod.ru} {Дана матрица размером nхn.Транспонировать ее, используя процедуру и не использую дополнительных матриц} const n=8; Procedure change(a,b:integer); var c:integer; begin c:=b;b:=a;a:=c; end; {Процедура Change меняет два числа между собой} var a:array[1..n,1..n] of integer; i,j:integer; begin randomize; For i:=1 to n do begin{Данный двойной цикл создает массив и выводит его на экран} for j:=1 to n do begin a[i,j]:=random(9); write(a[i,j],' '); end; writeln; end; For i:=1 to n do begin for j:=1 to n do begin If i" - программа будет работать, как и в первом случае} end; end; writeln; {Вывод уже транспонированной матрицы} For i:=1 to n do begin for j:=1 to n do begin write(a[j,i],' '); end; writeln; end; readln; end.