Найти сумму отрицательных элементов массива А() - QBasic

Собственно вот задание: Найти сумму отрицательных элементов массива А()

а, массив максимум из 10 елементов

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

CLS
n=10
DIM a(n)
RANDOMIZE TIMER
s=0
FOR i=1 TO n
 
  A(I)=INT(RND*11)-5
 
  IF a(i)<0 THEN
    s=s+a(i)
  END IF
NEXT
PRINT s

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

Объявляется переменная n со значением 10, которая представляет собой размер массива a().
Массив a() инициализируется с помощью команды DIM a(n).
С помощью RANDOMIZE TIMER генерируется случайное начальное значение для генератора псевдослучайных чисел.
Переменная s инициализируется нулем и будет использоваться для хранения суммы отрицательных чисел.
В цикле FOR перебираются элементы массива a().
Каждый элемент a(i) генерируется случайным образом в диапазоне от -5 до 6 с шагом 1 с помощью выражения INT(RND*11)-5.
С помощью условного оператора IF проверяется, является ли текущий элемент отрицательным числом.
Если это так, то значение этого элемента добавляется к переменной s.
После завершения цикла FOR выводится значение переменной s, которое представляет собой сумму всех отрицательных чисел в массиве a().