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

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

1) Найдите и выведите на экран значения элементов массива, кратных своим порядковым номером. 2)Найдите максимальное значение среди отрицательных элементов массива. 3)Возведите в квадрат все отрицательные элементы массива. Заранее спасибо!!

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

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

CLS
INPUT "kol-vo elementov"; n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
CLS
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT

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

kol-vo elementov - входное значение количества элементов массива
n - переменная, хранящая количество элементов массива
a(n) - создание массива с заданным количеством элементов
FOR i = 1 TO n - цикл, который будет выполняться от 1 до n раз
INPUT a(i) - ввод значения элемента массива под номером i
NEXT - переход к следующему элементу цикла
CLS - очистка экрана
FOR i = 1 TO n - цикл, который будет выполняться от 1 до n раз
PRINT a(i); - вывод значения элемента массива под номером i
PRINT - вывод символа новой строки