Вычислить сумму элементов матрицы по двум главным диагоналям - 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 на экран.

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы