Цитата:
Сообщение от Мартышонок
6. Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.
|
var
a,b:array [1..50,1..50] of integer;
i,j,n:integer;
begin
readln(m);
for i:=1 to m do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to m do
for j:=1 to m do
b[j,i]:=a[i,j];
writeln('Вывод повернутой матрицы');
for i:=1 to m do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;
end.