Сформировать из одной матрицы другую, поменяв местами элементы, симметричные относительно главной диагонали - Turbo Pascal

Формулировка задачи:

Квадратный массив С(m,n) преобразовать в массив D(m,n), в котором элементы массива C поменяются местами симметрично относительно главной диагонали.

Код к задаче: «Сформировать из одной матрицы другую, поменяв местами элементы, симметричные относительно главной диагонали - Turbo Pascal»

textual
uses crt;
type mas=array[1..100,1..100] of integer;
var
   i,j,n  : integer;
   c,d      : mas;
begin
clrscr;
write('ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ*: ');
readln(n);
writeln('Г¬Г*Г±Г±ГЁГў c:');
for i:=1 to n do
begin
     for j:=1 to n do begin
         c[i,j]:=random(10);
         write(c[i,j]:4);
     end;
     writeln;
end;
writeln('*********************************************');
writeln('Г¬Г*Г±Г±ГЁГў d:');
for i:=1 to n do
     for j:=i to n do begin
         d[i,j] := c[j, i];
         d[j,i]:=c[i, j];
         if i = j then d[i,j]:=c[i, j];
     end;
for i:=1 to n do
begin
     for j:=1 to n do write(d[i,j]:4);
     writeln;
end;
end.

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ