Дан одномерный массив j из n элементов ,значения которых находятся в диапазоне от -90 до 90 подсчитать кол-во положительных элементов .вывести на экран исходный массив и результат подсчёта .программа бейсик

DIM J(1 TO 20) AS INTEGER
i%=0
RANDOMIZE TIMER
P%=0
CLS  'Очистить экран
FOR i%=1 TO 20
   J(i%)=INT(180*RND)-90  'Случайное целое на [-90,90]
   PRINT J(i%)
   IF J(i%)>0 THEN P%=P%+1
NEXT
PRINT "Количество положительных элементов",P%
END