Заданна квадратная матрица 4x 4. вычислить сумму диагональных элементов

Код Pascal:

Const

N = 4;

Var

A:array[1 ... N, 1 ... N] of integer;

i, j:integer;

S:real;

Begin

Randomize;

WriteLn ('Исходный массив:') ;

For i: = 1 to N do

Begin

For j: = 1to N do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j]:3,' ')

End;

WriteLn

End;

S:=0;

For i: = 1 to N do

S:=S+A[i, i]+A[N-i+1, i];

WriteLn ('Сумма диагональных элементов: ', S)

End.

Пример работы программы:

Исходный массив:

5 6 - 3 - 5

-1 - 1 6 1

-3 - 7 7 - 5

-1 - 2 2 9

Сумма диагональных элементов: 13