Вычислить сумму элементов матрицы по двум главным диагоналям - Pascal
Формулировка задачи:
Есть двумерный массив NxN. Нужно вычислить сумму элементов массива по двум главным диагоналям.
Подскажите, что я делаю не так?
Решение задачи: «Вычислить сумму элементов матрицы по двум главным диагоналям»
textual
Листинг программы
program q; const n=4; var a:array[1..n,1..n] of integer; s,i,j:integer; begin for i:=1 to n do for j:=1 to n do read(a[i,j]); for i:=1 to n do s:=a[i,i]+a[i,n-i+1] writeln(s); end.
Объяснение кода листинга программы
В этом коде программа сначала запрашивает у пользователя ввести значения элементов матрицы. Затем, для каждого элемента матрицы, программа вычисляет сумму соответствующих элементов по главной диагонали и записывает результат в переменную s. В конце программа выводит значение переменной s на экран.