Question

Сформировать квадратную матрицу порядка n по заданному образцу (pascal)
| 1 2 3 ... n-2 n-1 n |
| 2 1 2 ... n-2 n-2 n-1 |
| 3 2 1 ... n-4 n-4 n-2|
| ... ... ... ... ... ... ... |
|n-1 n-2 n-3 ... 2 1 2 |
| n n-1 n-2 ... 3 2 1 |

Answer 1

begin

 var m := 5;

 var n := 5;

 var a := new integer[m, n];

 for var i := 0 to m - 1 do

   for var j := 0 to n - 1 do

   begin

     if j > i then a[i, j] := j - i + 1;

     if i = j then a[i, j] := 1;

     if i > j then a[i, j] := i - j + 1;

   end;

 a.Println;

end.