Question

СРОЧНО! ДАЮ 30 БАЛЛОВ!

Составить программу в Паскале, где с клавиатуры вводится число (нечетное), а на экран выводится квадрат (матрица)

Например, Вводится 3
1 1 1
1 2 1
1 1 1

Вводится 5

1 1 1 1 1
1 2 2 2 1
1 2 3 2 1
1 2 2 2 1
1 1 1 1 1
и т.д.

Answer 1

Ответ:

program ideone;

uses Math;

var

 n, i, j: Integer;

begin

 read(n);

 for i := 0 to n-1 do

 begin

   for j := 0 to n-1 do

   begin

     if (j > 0) then write(' ');

     write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);

   end;

   writeln;

 end;

end.