2cos^2x-sin2x =0 помогите с уравнением

Здравствуйте, помогите пожалуйста решить задачу:
В одномерном массиве из N чисел вывести на экран положительные элементы и сообщение об их количестве.Помогите пожалуйста!

CLS

RND Находим все положительные числа в одномерном массиве и выводим их количество

INPUT "Количество элементов"; n

DIM a(n)

FOR i = 1 TO n

    INPUT a(i)

NEXT i

REM Выбор положительных чисел

k = 0

FOR i = 1 TO n

    IF a(i) > 0 THEN k = k + 1: PRINT a(i)

NEXT i

REM Количество положительных чисел

PRINT k

END

 В чем ошибка?

установите связь следующих понятий и представь ее в виде математического выражения или схемы:ДЕФИЦИТ БЮДЖЕТА,РАСХОДЫ,ДОХОДЫ,ПРОФИЦИТ БЮДЖЕТА.