Код:
program kyrs;
uses crt;
type
mas=array[1..15,1..15] of integer;
vector=array[1..15] of integer;
var
i,j,n:integer;
A,B:mas;
V,V1,V2:vector;
procedure vvod;
begin
repeat
clrscr;
write('vvedite razmernost massiva ot 5 do 15: ');
readln(n);
until (n>=5) and (n<=15);
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(201);
end;
procedure vivod(Av:mas);
var i1,j1:integer;
begin
i1:=(n div 2)+1;
if (n mod 2)=0 then
j1:=(n div 2)
else
j1:=(n div 2)+1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i<i1) or ((i>i1) and (j<=i-i1)) or
((i>=i1) and (j>j1) and (j<n-(i-i1))) then
textcolor(13) else textcolor(14);
write(Av[i,j]:5);
end;
writeln;
textcolor(13);
end;
Writeln('Press "Enter" to continue...');
ReadLn;
end;
procedure obmen(Ao:mas; var Bo:mas);
var i1,j1:integer;
begin
Bo:=Ao;
i1:=round(n/2);
for i:=1 to i1 do
for j:=i1 to n do
begin
j1:=Bo[i,j];
Bo[i,j]:=Bo[n-j+1,n-j+1];
Bo[n-j+1,n-J+1]:=j1;
end;
end;
BEGIN
clrscr;
randomize;
textbackground(9);
textcolor(13);
vvod;
clrscr;
Writeln('Ishodnaya matritsa:');
vivod(A);
obmen(A,B);
Writeln('Preobrazovannaya matritsa:');
vivod(B);
ReadLn;
END.
Помогите программу переделать, чтобы вместо этих областей:рисунок 1.
Местами менялись Эти:рисунок 2.