Выяснить сумму элементов массива, у которых порядковый номер совпадает со значениями - QBasic

Формулировка задачи:

Задана последовательность целых чисел. Выяснить сумму элементов массива ,у которых порядковый номер совпадает со значениями.

Решение задачи: «Выяснить сумму элементов массива, у которых порядковый номер совпадает со значениями»

Листинг программы

input n
dim a(n)
for i=1 to n
input"vvedite element ",a(i)
next
print "massiv"
for i=1 to n
print a(i);
next
print
for i=1 to n
if i=a(i) then s=s+a(i)
next
print s

Объяснение кода листинга программы

В этом коде:

Сначала пользователю предлагается ввести число n, которое будет определять размер массива a.
Затем создается массив a размером n.
После этого происходит заполнение массива значениями, которые вводит пользователь.
Затем выводится содержимое массива.
После этого происходит итерация по массиву и суммирование элементов, значения которых совпадают с их порядковыми номерами.
И, наконец, выводится результат - сумма таких элементов.