Question

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

Answer 1

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