Вот тебе код на паскале(повернули матрицу на 90 градусов).Остальны сам думаю додумаешься;)
| Код |
uses crt;
const n=5;
var
massiv:array[1..n,1..n] of integer;
res:array[1..n,1..n] of integer;
row,column,exchange,diagonal:integer;
begin
Randomize;
{заполняем массив случайным образом и показываем его на экране }
writeln('исходный массив');
for row:=1 to n do begin
for column:=1 to n do begin
massiv[row,column]:=random(100);
write(' ',massiv[row,column]:2);
end;
writeln;
end;
{переставляем строки местами }
for row:=1 to n do begin
for column:=1 to n do begin
{если поворачивать против часовой стрелки то вот такой вариант :}
{res[column,row]:=massiv[row,n-column+1]; }
res[column,n-row+1]:=massiv[row,column];
end;
end;
writeln;
{выводим результат }
writeln('Повернули на 90 градусов по часовой стрелке');
for row:=1 to n do begin
for column:=1 to n do begin
write(' ',res[row,column]:2);
end;
writeln;
end;
readln;
end.
|
|