ЗАДАЧА… Квадратная матрица…

Question

ЗАДАЧА… Квадратная матрица, вывести на экран элементы главной диогонали и подсчитать ихсумму

Answer 1

90

martin-rigs

23 февраля 2023

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. Если будут вопросы — задавай. И, пожалуйста, отметь решение как лучшее)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: