uses crt;
const n = 6;
type
TMx = array[1..n,1..n] of integer;
procedure Print(mx : TMx);
var
i,j : byte;
begin
writeln; writeln;
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:2,' ');
end;
end;
procedure SpiralFill(var mx : TMx);
var
i,j,c : byte;
begin
i := 1;
j := 1;
c := 0;
repeat
while (j <= n - c) do begin readln(mx[i,j]); inc(j); end;
inc(i); dec(j);
while (i <= n - c) do begin readln(mx[i,j]); inc(i); end;
dec(j); dec(i);
while (j >= 1 + c) do begin readln(mx[i,j]); dec(j); end;
inc( c ); inc(j); dec(i);
while (i >= 1 + c) do begin readln(mx[i,j]); dec(i); end;
inc(j); inc(i);
until c > n div 2;
end;
var
m : TMx;
begin
clrscr;
SpiralFill(m);
Print(m);
readln;
end.
Заполнение матрици по спирали |