Двумерный массив - Pascal ABC (12669)

Написать программу для определения суммы элементов над главной диагональю матрицы. Ввод и размерность матрицы осуществляется с клавиатуры.

Листинг программы

s:=0;
for i:=1 n-1 do
for j:=i+1 to n do
s:=s+a[i,j];

Объяснение кода листинга программы

Переменная s инициализируется значением 0.
Затем происходит внешний цикл for, который выполняется от 1 до n-1, где n - это размер двумерного массива a.
Внутри этого внешнего цикла выполняется вложенный цикл for, который начинается с i=1 и продолжается до i=n-1 (т.е. i увеличивается на 1 на каждой итерации).
Для каждой пары i и j (где j=i+1 до n) значение a[i,j] добавляется к переменной s.
После завершения вложенного цикла for для каждой пары i и j, значение переменной s будет содержать сумму всех элементов a[i,j].
В конце внешнего цикла for переменная s будет содержать окончательное значение, которое является суммой всех элементов двумерного массива a.