процедура, поворачивающая в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов

[цезарь]

Uses wincrt;

const
  n = 5;
  r = 3;

type
  tarray = array[1..n, 1..n] of integer;

var
  j, i, v_max, v_min: Integer;
  v: tarray;


procedure romb(var a: tarray);
var
  p, i, j: Word;
  temp1, temp2: integer;
begin
  temp2 := a[r, 1];
  a[r, 1] := a[r + 1, 2];
  for p := 1 to r-1 do
  begin
    j := 0;
    for i := r downto 2 do
    begin
      j := j + 1;
      temp1 := a[i - 1, j + 1];
      a[i - 1, j + 1] := temp2;
      temp2 := temp1;
    end;
    j := r - 1;
    for i := 1 to r-1 do
    begin
      j := j + 1;
      temp1 := a[i + 1, j + 1];
      a[i + 1, j + 1] := temp2;
      temp2 := temp1;
    end;
    j := 2 * r;
    for i := r to (2 * r)-2 do
    begin
      j := j - 1;
      temp1 := a[i + 1, j - 1];
      a[i + 1, j - 1] := temp2;
      temp2 := temp1;
    end;
    j := r + 1;
    for i := (2 * r)-1 downto r+1 do
    begin
      j := j - 1;
      temp1 := a[i - 1, j - 1];
      a[i - 1, j - 1] := temp2;
      temp2 := temp1;   
    end;
  end;  
end;


begin
  
  Randomize;
  
  WriteLn('Laboratornaya rabota №7_2');
  WriteLn('Variant №1');
  WriteLn('PI 12-1-1');
  WriteLn('цезарь');
  WriteLn;
  WriteLn('Zadaite diapozon sly4ainih 4isel');
  Write('v_min=');
  ReadLn(v_min);
  Write('v_max=');
  ReadLn(v_max);
  
  for i := 1 to n do
    for j := 1 to n do
      v[i, j] := Random(v_max - v_min + 1) + v_min;       
  Writeln('Ishodnii massiv:');        
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(v[i, j]:2);
    Writeln;
  end;  
  
  romb(v);
  writeln('Preobrazovanii massiv:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(v[i, j]:2);
    Writeln;
  end;  
end.

нужно изменить процедуру, поворачивающую в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов по часовой стрелки, так чтоб поворачивала против часовой стрелки




___________
1) Название темы не соответствует правилам форума
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.