Напечатать в обратном порядке все положительные элементы массива - QBasic

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

Имеется массив A и N произвольных чисел A (N), среди которых есть положительные, отрицательные и равные нулю. Составить программу которая напечатает в обратном порядке все положительные элементы. Например, если A= {2,4-9,5,6,-3,2}, результат: 2,6,5,4,2. Программирование через qbasic.

Подскажите пожалуйста!

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

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

input "vvedite kol-vo elementov ",n
dim a(n)
randomize timer
for i=1 to n 
a(i)=int(rnd*20)-10
next
print"massiv"
for i=1 to n 
print a(i);
next
print
print "resultat"
for i= n to 1 step-1
if a(i)>0 then print a(i);
next

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

В этом коде сначала пользователю предлагается ввести количество элементов массива (до 20). Затем, после инициализации массива случайными числами от -10 до 10, выводится весь массив на экран. Далее, в обратном порядке (от большего к меньшему) выводятся только положительные элементы массива.