Составить программу, которая подсчитывает количество отрицательное и положительных чисел

Дан одномерный массив из 20 элементов. Составить программу, которая подсчитывает количество отрицательное и положительных чисел. Нулевые элементы не учитывать.

DIM a(20)
RANDOMIZE TIMER
FOR i=1 TO 20
a(i)=INT(RND*20)-10
NEXT
FOR i=1 TO 20
PRINT a(i);" ";
NEXT
PRINT
FOR i=1 TO 20
IF a(i)<0 THEN otr=otr+1
IF a(i)>0 THEN pol=pol+1
NEXT
PRINT"polojit=";pol;" otricat=";otr

автор: кот Бегемот