Вычислить сумму элементов массива, у которых порядковый номер совпадает со значениями - QBasic
Формулировка задачи:
Задана последовательность целых чисел. Выяснить сумму элементов массива,у которых порядковый номер совпадает со значениями.
Решение задачи: «Вычислить сумму элементов массива, у которых порядковый номер совпадает со значениями»
textual
Листинг программы
- INPUT "vvedite n"; n
- DIM a(n)
- FOR i = 1 TO n
- PRINT "vvedite"; i; "element";
- INPUT a(i)
- IF a(i) = i THEN s = s + i
- NEXT
- FOR i = 1 TO n
- PRINT a(i);
- NEXT
- PRINT "s="; s
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д