Технический форум - Массивы, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы, Паскаль (http://www.tehnari.ru/f41/t73894/)

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

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

Цитата:

Сообщение от QIWI (Сообщение 737181)

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

Код:

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.