Найти сумму элементов главной диагонали матрицы - QBasic (27754)
Формулировка задачи:
Дана матрица размерностью NxN
Как найти сумму элементов главной диагонали?
Решение задачи: «Найти сумму элементов главной диагонали матрицы»
textual
Листинг программы
INPUT n DIM a(n,n) FOR i=1 TO n s=s+a(i,n-i+1) NEXT i PRINT s
Объяснение кода листинга программы
- Вводится значение переменной n с помощью команды INPUT.
- Создается матрица a(n,n) с помощью команды DIM.
- Задается начальное значение переменной s равное 0.
- Запускается цикл FOR для перебора элементов матрицы a от i=1 до n.
- Внутри цикла каждый элемент a(i,n-i+1) прибавляется к переменной s.
- По завершении цикла выводится значение переменной s с помощью команды PRINT.