用1PASCAL做

```pascal program MatrixTopLeftSum; var n, i, j: integer; matrix: array[1..100, 1..100] of integer; total: integer; begin // 读取矩阵的大小 n readln(n); // 读取矩阵元素 for i := 1 to n do begin for j := 1 to n do begin read(matrix[i, j]); end; readln; end; // 初始化总和为 0 total := 0; // 计算左上角数字之和 for i := 1 to n do begin for j := 1 to n - i do begin total := total + matrix[i, j]; end; end; // 输出左上角数字之和 writeln(total); end. ``` 代码解释： 1. 变量声明： - `n` 用于存储矩阵的大小。 - `i` 和 `j` 作为循环变量使用。 - `matrix` 是一个二维数组，用来存储矩阵元素，这里假定矩阵最大为 `100×100`。 - `total` 用于存储左上角元素的总和。 2. 读取矩阵大小和元素： - 首先使用 `readln(n)` 读取矩阵的大小 `n`。 - 然后通过两层嵌套的 `for` 循环读取矩阵的每一个元素，外层循环控制行，内层循环控制列。 3. 计算左上角元素之和： - 同样使用两层嵌套的 `for` 循环遍历矩阵，外层循环控制行，内层循环控制列，当列的索引 `j` 满足小于 `n - i` 的条件时，将该元素累加到 `total` 中。 4. 输出结果： - 最后使用 `writeln(total)` 输出左上角元素的总和。 [2025-12-08 17:55:49 | AI问答 | 458点数解答]