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

INPUT n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
    IF a(i) < 0 THEN s = s + 1
    PRINT a(i); " ";
NEXT i
PRINT
PRINT s