Вывести на печать значение и номер первого отрицательного элемента массива - QBasic

Формулировка задачи:

помогите составить программу: Дан одномерный массив А(15). Вывести на печать значение и номер первого отрицательного элемента. Пожалуйста помогите!!!!!!!!!!!!

Решение задачи: «Вывести на печать значение и номер первого отрицательного элемента массива»

Листинг программы

CLS 
INPUT"vvedite kol-vo elementov ",n
DIM a(n)
RANDOMIZE TIMER 
FOR i = 1 TO n
a(i) = INT(RND * 100) - 50 
NEXT
PRINT" massiv" 
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
IF A(i) > 0 THEN nom=i
NEXT 
PRINT"poslednij polojitelnyj element=";a(nom)
PRINT "ego nomer="; nom

Объяснение кода листинга программы

CLS — очистка экрана
INPUTvvedite kol-vo elementov ,n — ввод количества элементов массива
DIM a(n) — создание массива a размером n
RANDOMIZE TIMER — инициализация генератора случайных чисел
FOR i = 1 TO n — цикл по всем элементам массива
a(i) = INT(RND * 100) — 50 — заполнение массива случайными числами от -50 до 50
PRINT massiv`` — вывод сообщения с названием массива
FOR i = 1 TO n — цикл по всем элементам массива
PRINT a(i); — вывод значения каждого элемента массива
PRINT — завершение вывода
FOR i = 1 TO n — цикл по всем элементам массива
IF A(i) > 0 THEN nom=i — поиск первого положительного элемента массива, запоминание его номера в переменной nom
NEXT — завершение цикла
PRINTposlednij polojitelnyj element=;a(nom) — вывод сообщения с последним положительным элементом массива
PRINTego nomer=; nom — вывод номера последнего положительного элемента массива