Составьте программу которая находит и выводит наименьший номер отрицательного элемента массива или сообщение, что такого элемента нет - QBasic

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

1)Задан массив натуральных чисел размером 30 элементов.Составить программу получения из него другого массива, который будет содержать факториалы значений эл. 1 массива, но выстроенных в обратном порядке. 2)Дан массив из 50 элементов. Составьте программу которая находит и выводит наименьший номер отрицательного элемента массива или сообщение, что такого элемента нет. Помогите пожалуйста.

Решение задачи: «Составьте программу которая находит и выводит наименьший номер отрицательного элемента массива или сообщение, что такого элемента нет»

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

DIM a(50)
 FOR i = 1 TO 50
  INPUT a(i)
NEXT i
FOR i = 1 TO 50
IF a(i) < 0 THEN k = i:exit for
NEXT
IF k = 0 THEN PRINT "net takih" ELSE PRINT k

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

Создается массив a(50) для хранения чисел.
Заполняется массив числами с помощью цикла FOR и оператора INPUT.
Цикл FOR выполняется 50 раз, для каждого элемента массива проверяется его значение с помощью оператора IF.
Если значение элемента меньше нуля, то переменной k присваивается значение i (номер элемента) и выполнение циклов прекращается с помощью оператора EXIT FOR.
Если после выполнения циклов значение переменной k осталось равным нулю, то выводится сообщение net takih, иначе выводится значение переменной k.