Массивы, Паскаль

[QIWI]

Массивы, Паскаль

Помогите написать блок-схему или программу к заданию. В массиве n+n поменять местами элементы массива относительно главной диагонали.

 

[Vladimir_S]

Помогите написать блок-схему или программу к заданию. В массиве n+n поменять местами элементы массива относительно главной диагонали.

Да... проблема века.

Const
 N=8;
Var
 A,B:Array[1..N,1..N] of Byte;
 i,j:Byte;
Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(20);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     B[i,j]:=A[j,i];
     Write(B[i,j]:4);
    end;
   Writeln;
  end;
 Readln
End.