Цитата:
Сообщение от Lera_94
2.. Двумерный массив NxN заполнить случайными символами английского алфавита (заглавные). Поменять местами элементы относительно главной диагонали, а затем относительно побочной диагонали
|
Легко.
Код:
Const
N=7;
Var
A:Array[1..N,1..N] of Char;
i,j:Byte;
C:Char;
Begin
Randomize;
Writeln('Initial matrix:');
for i:=1 to N do
begin
for j:=1 to N do
begin
A[i,j]:=Chr(65+Random(26));
write(A[i,j]+' ');
end;
writeln;
end;
Writeln('First transformed matrix:');
for i:=1 to N-1 do
for j:=i+1 to N do
begin
C:=A[i,j];
A[i,j]:=A[j,i];
A[j,i]:=C;
end;
for i:=1 to N do
begin
for j:=1 to N do write(A[i,j]+' ');
writeln;
end;
Writeln('Second transformed matrix:');
for i:=1 to N-1 do
for j:=1 to N-i do
begin
C:=A[i,j];
A[i,j]:=A[N-j+1,N-i+1];
A[N-j+1,N-i+1]:=C;
end;
for i:=1 to N do
begin
for j:=1 to N do write(A[i,j]+' ');
writeln;
end;
Readln
End.
Заполнение матрицы идет путем случайной выборки кодов символов с номерами от 65 до 90, которым соответствуют заглавные латинские буквы. Остальное всё, я думаю, понятно.