Матрица - Pascal - Ответ 317253

unit Matrix;
interface
const Max=100;
type Matr=array[1..Max,1..Max] of integer;
procedure InputData(var Mt:Matr; m:integer);
procedure PrintMatrix(var Mt:Matr; m:integer);
procedure TurnMatrix(var Mt1,Mt:Matr; m:integer);
implementation
procedure InputData;
var i,j:integer;
begin
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          writeln('Введите элемент ',i,' ',j,':');
          readln(Mt[i,j]);
        end;
    end;
end;
 
procedure PrintMatrix;
var i,j:integer;
begin
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(Mt[i,j]:4);
        writeln;
    end;
end;
 
procedure TurnMatrix;
var i,j:integer;
begin
  for i:=1 to m do
    for j:=1 to m do
      Mt1[i,j]:=Mt[m-j+1,i];
end;
end.

uses crt,Matrix;
var Mt,Mt1:Matr;
    m:integer;
begin
  clrscr;
  writeln('Введите размерность квадратной матрицы ');
  readln(m);
  InputData(Mt,m);
  clrscr;
  writeln('Исходная матрица:');
  PrintMatrix(Mt,m);
  TurnMatrix(Mt1,Mt,m);
  writeln;
  writeln('Матрица повернутая на 90 градусов:');
  PrintMatrix(Mt1,m);
  readln;
end.