Заполнить массив A(N) числами по правилу: первый элемент = 1, каждый следующий элемент = (предыдущий элемент)*номер текущего элемента + 1. Вывести созданный массив в прямом и обратном порядке.- QBasic(Бейсик)

disel 
CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
a(1) = 1
FOR i = 2 TO n
    a(i) = a(i - 1) * i + 1
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
    PRINT a(n - i + 1);
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment