program Matrix16;
var
a:array [1..10,1..10] of integer;
M, i, j, i2:Integer;

begin
Write('M: ');
Readln(M);

for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to M do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;

for i2:=1 to M div 2 do
begin
For j:=i2 to M-i2+1 do Write(a[j,i2],' ');
For i:=i2+1 to M-i2+1 do Write(a[M-i2+1,i],' ');
For j:=M-i2 downto i2 do Write(a[j,M-i2+1],' ');
For i:=M-i2 downto i2+1 do Write(a[i2,i],' ');
writeln('');
end;
writeln(a[M div 2+1,M div 2+1]);
end.

Добавлено: 08 Января 2017 13:10:35 Добавил: Андрей Стаценко Нравится 0

Добавить