Составьте программу, генерирующую одномерный массив - QBasic

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

Составьте программу, генерирующую одномерный массив X(N) , каждый элемент X[I] которого равен минимальному из чисел Y[1], Y[2],...,Y[I], где указанные числа - элементы одномерного массива Y(N).

Решение задачи: «Составьте программу, генерирующую одномерный массив»

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

CLS
DIM n AS INTEGER, i AS INTEGER
INPUT "", n
DIM y(1 TO n) AS INTEGER
DIM x(0 TO n) AS INTEGER
FOR i = 1 TO n
    INPUT "", y(i)
    IF y(i) < x(i - 1) OR i = 1 THEN x(i) = y(i) ELSE x(i) = x(i - 1)
NEXT

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

Очистка экрана - команда CLS используется для очистки экрана перед выводом информации.
Ввод размера массива - вводится размер массива n с помощью команды INPUT ``. n
Создание массива y - создается массив y размером n с помощью команды DIM y(1 TO n) AS INTEGER.
Создание массива x - создается массив x размером n+1 с помощью команды DIM x(0 TO n) AS INTEGER.
Заполнение массива y значениями - с помощью цикла FOR и команды INPUT ``, y(i) вводятся значения в массив y.
Условие для заполнения массива x - используется условное выражение IF y(i) < x(i - 1) OR i = 1 THEN x(i) = y(i) ELSE x(i) = x(i - 1) для заполнения массива x.
Заполнение массива x значениями - с помощью цикла FOR и условного выражения в цикле FOR происходит заполнение массива x. Список не более 20 элементов:
CLS
n
y(i)
x(i)