const
n = 5;
var
Mas: array[1..n,1..n] of integer;
Nas: array[1..n*n] of integer;
i,j, c: integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
Mas[i,j]:=Random(100);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
Write(Mas[i,j]:5);
end;
writeln;
end;
writeln;
for i:=1 to (n div 2) do
begin
for j:=i to n-i do
begin
inc(c); Nas[c]:=Mas[i,j];
end;
for j:=i to n-i do
begin
inc(c); Nas[c]:=Mas[j,n-i+1];
end;
for j:=n-i downto i do
begin
inc(c); Nas[c]:=Mas[n-i+1,j+1];
end;
for j:=n-i downto i do
begin
inc(c); Nas[c]:=Mas[j+1, i];
end;
end;
inc(c);
if n mod 2 =1 then
Nas[c] := Mas[n div 2 + 1, n div 2 + 1];
for i:=1 to n*n do
Write(Nas[i]:5);
readln;
end.
|
