Дан одномерный массив 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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.