"изменить квадратную матрицу путем перестановки эллементов, симметричных относительно главной диагонали." написать код на языке паскаль. , надо!

Const n=6; var  a: array[1..n,1..n] of integer; i,j,c: integer; begin randomize; 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

ответ:

10001010111

объяснение:

[log2()]=10

2^10=1024

-1024=87

[log2(87)]=6

2^6=64

87-64=23

[log2(23)]=4

2^4=16

23-16=7

[log2(7)]=2

2^2=4

7-4=3

[log2(3)]=1

2^1=2

3-2=1

[log2(1)]=0

искомая двоичная запись числа состоит из 11 разрядов (от 0 до 10). нумерация разрядов от 0 до 10 справа налево.

в выделенных номерах разрядов стоят единицы, в остальных нули.

запишем в верхней строчке номера разрядов, в нижней значения:

10 9 8 7 6 5 4 3 2 1 0

1   0 0 0 1   0 1 0 1   1 1