Найти сумму квадратов элементов, стоящих на главной диагонали - PascalABC.NET
Формулировка задачи:
Найти сумму квадратов элементов, стоящих на главной диагонали.
Решение задачи: «Найти сумму квадратов элементов, стоящих на главной диагонали»
textual
Листинг программы
s:=0; for i:=1 to n do s:=s+sqr(a[i,i]);
Объяснение кода листинга программы
- Объявляется переменная
sтипацелое числои инициализируется значением 0. - В цикле
forперебираются все элементы массиваaот индекса 1 доn. - Каждый элемент
a[i,i]возводится в квадрат и прибавляется к переменнойs. - По завершении цикла
forв переменнойsбудет содержаться сумма квадратов элементов, стоящих на главной диагонали матрицыa.