"Изменить квадратную матрицу путем перестановки эллементов, симметричных относи?

"Изменить квадратную матрицу путем перестановки эллементов, симметричных относи??ельно главной диагонали." Написать код на языке Паскаль. Помогите, очень надо!
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы