Найти сумму абсолютных значений негативных элементов массива - QBasic

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

Вот у меня есть начальный код

REM Praktica
REM Formirovanie isxod dann
OPEN "H:\pr.doc" FOR OUTPUT AS #1
RANDOMIZE TIMER
DIM d(12)
FOR K = 1 TO 12
    d(K) = 4 * RND - 1
    PRINT "d("; K; ")="; d(K)
    PRINT #1, "d("; K; ")="; d(K)
NEXT K
END

мне нужно найти Сумму абсолютных значений негативных элементов, то есть после строки NEXT K нужно дописать решение или что то в этом роде. Помогите чем сможете

Решение задачи: «Найти сумму абсолютных значений негативных элементов массива»

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

REM Praktica
REM Formirovanie isxod dann
OPEN "H:\pr.doc" FOR OUTPUT AS #1
RANDOMIZE TIMER
DIM d(12), S AS SINGLE
FOR K = 1 TO 12
    d(K) = 4 * RND - 1
    PRINT "d("; K; ")="; d(K)
    PRINT #1, "d("; K; ")="; d(K)
    IF d(k)<0 THEN s=s+ABS(d(k))
NEXT K
CLOSE #1 'правда, непонятно - зачем Вам файл, но если уж открыли, то лучше закрыть!
PRINT "s=";s
END

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

Создается файл с именем H:\pr.doc для записи данных.
Используется функция RANDOMIZE TIMER для инициализации генератора случайных чисел.
Создается массив d(12) для хранения 12 чисел.
Каждое число в массиве d(12) инициализируется как 4 * RND - 1, где RND - это генератор случайных чисел.
Каждое число в массиве d(12) выводится на экран и записывается в файл H:\pr.doc.
Переменная s инициализируется как 0.
Для каждого числа в массиве d(12) проверяется, является ли оно отрицательным.
Если число в массиве d(12) отрицательное, то его абсолютное значение добавляется к переменной s.
После завершения цикла, переменная s выводится на экран.