Цитата:
Сообщение от QIWI
Помогите написать блок-схему или программу к заданию. В массиве 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.