Для массива из 10 элементов (задан случайным образом на отрезке от -10 до 10) найти сумму отрицательных по значению элементов, стоящих на нечетных местах. ( Quick basic)

CLSRANDOMIZE TIMERDIM a(10)FOR i=1 TO 10a(i) = INT(RND * 21) - 10NEXT is=0FOR i=1 TO 10 STEP 2IF a(i)<0 THEN s=s+a(i)NEXT iPRINT sEND