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

193

464

Посмотреть ответы 2

Ответы на вопрос:

Аurikа

Информатика

4,5(59 оценок)

Код 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