Найти сумму всех элементов двумерного массива, расположенных на главной диагонали - Turbo Pascal

Формулировка задачи:

Найти сумму всех элементов двумерного массива целых чисел размерностью 5*5, расположен-ных на главной диагонали. Заполнение массива осуществить с клавиатуры.

Решение задачи: «Найти сумму всех элементов двумерного массива, расположенных на главной диагонали»

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

sum:=0;
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    if i=j then sum:=sum+a[i,j];
  end;
end;

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

Переменная sum инициализируется значением 0.
В цикле for переменной i присваивается значение от 1 до 5.
В вложенном цикле for переменной j присваивается значение от 1 до 5.
Для каждого элемента массива a[i,j] выполняется следующая последовательность действий:
- Выводится строка a[, текущее значение i, ,, текущее значение j, ]=.
- Считывается значение из стандартного ввода с помощью функции readln().
- Если i равно j, то значение sum увеличивается на текущее значение a[i,j].
Цикл for завершается.
Выводится значение переменной sum.