Найти сумму элементов главной диагонали матрицы (Паскаль.)

[Катя 777]

Пожалуйста, помогите решить. Очень нужна Ваша помощь.


а)Дан 2-мерный массив. Найти сумму элементов главной диагонали.

б)Дан 2-мерный массив. Найти сумму элементов побочной диагонали матрицы



Заранее благодарю!!

[type_Oleg]

1.

sum:=sum+a[i,i];

2.

sum:=sum+a[i,n-i];

[Serge_Bliznykov]

Сообщение от type_Oleg

1.

sum:=sum+a[i,i];

2.

sum:=sum+a[i,n-i];

я бы указал, что нужен цикл...
1.

sum := 0;
for i:=1 to n do sum:=sum+a[i,i];

2.

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