Задание:
ЗАДАЧА… Квадратная матрица, вывести на экран элементы главной диогонали и подсчитать ихсумму
Решение:
const n=5; var a: array [1… n, 1… n] of real; i, j: integer; s: real; begin s: =0; for i: =1 to n do for j: =1 to n do begin writeln ('Введите a[', i, ', ', j, ']'); readln (a[i, j]); end; writeln ('Исходная матрица: '); for i: =1 to n do begin for j: =1 to n do write (a[i, j], '); writeln; end; for i: =1 to n do begin writeln ('a[', i, ', ', i, ']=', a[i, i]); s: =s+a[i, i]; end; writeln ('Сумма элементов главной диагонали: ', s); end. Если будут вопросы — задавай. И, пожалуйста, отметь решение как лучшее)
Знаете другой ответ?