Найти номер последнего отрицательного элемента в последовательности

Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Например, если А={2,4,–3,0,5,–2,5}, результат: 6 (число –2).

INPUT"vvedite kol-vo chisel ",n
RANDOMIZE TIMER
DIM a(n)
FOR i=1 TO n
a(i)=INT(RND*20)-10
NEXT
PRINT"massiv"
FOR i=1 TO n 
PRINT a(i);
NEXT
PRINT
FOR i=1 TO n
IF a(i)<0 THEN nomer=i
NEXT
PRINT"nomer poslednego otricatelnogo chisla=";nomer

автор: