Массив2

uses crt;
const n=3;
var a : array[1..n,1..n] of integer;
    i,j,p,x : integer;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j] := 10*i+j;
       write(a[i,j]:4);
      end;
    writeln;
  end;
p := n div 2;
for i:=1 to p do
for j:=i to n-i do
  begin
    x := a[i,j];
    a[i,j] := a[n-j+1,i];
    a[n-j+1,i] := a[n-i+1,n-j+1];
    a[n-i+1,n-j+1] := a[j,n-i+1];
    a[j,n-i+1] := x;
  end;
writeln('Поворот на 90 градусов по часовой стрелке:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

uses crt;
const n=3;
var i,j:integer;
    a,b:array[1..n,1..n] of integer;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=10*i+j;
        write(a[i,j]:4);
      end;
  writeln;
  end;
writeln('Поворот на 90 градусов по часовой стрелке:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[n-j+1,i];
for i:=1 to n do
  begin
    for j:=1 to n do
    write(b[i,j]:4);
    writeln;
  end;
readln
end.

var a : array[1..3,1..3] of integer;
t: integer;
 
t:= a[1][1]; a[1][1]:= a[3][1]; a[3][1]:= a[3][3]; a[3][3]:= a[1][3]; a[1][3]:= t;
 
t:= a[1][2]; a[1][2]:= a[2][1]; a[2][1]:= a[3][2]; a[3][2]:= a[2][3]; a[2][3]:= t;