Пожалуйста, помогите решить данный массив в паскале

Question

Пожалуйста, помогите решить данный массив в паскале

---

Comments

begin var n := ReadInteger(); var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i)); a.Println;end.

---

или так

---

begin var n := ReadInteger(); var a := new integer[n, n]; for var i := 0 to n - 1 do begin for var j := 0 to n - 1 do begin if i > j then a[i, j] := 0 else a[i, j] := 1 + j - i; Write(a[i, j]:4); end; writeln; endend.

Answer 1

begin

 var n := ReadInteger();

 var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i));

 a.Println;

end.

Comments

PascalABC.NET