const n=6;var a:array[1..n,1..n] of integer;i,j,c:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:4); end; writeln; end;for i:=2 to n do for j:=1 to i-1 do begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;writeln('Полученный массив:');for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end;end.Пример:Исходный массив: 3 35 21 1 39 48 39 44 2 43 16 28 15 32 46 43 45 3 19 7 25 13 0 36 44 33 21 16 11 11 22 48 28 36 1 12Полученный массив: 3 39 15 19 44 22 35 44 32 7 33 48 21 2 46 25 21 28 1 43 43 13 16 36 39 16 45 0 11 1 48 28 3 36 11 12