Для подсчета суммы отрицательных чисел из 30 чисел в QBasic, нужно сначала объявить массив и заполнить его числами, а затем пройти по этому массиву и сложить все отрицательные числа.

Пример кода на QBasic:

DIM numbers(30) ' объявляем массив из 30 чисел
total = 0 ' переменная для хранения суммы отрицательных чисел
' заполнение массива случайными числами
FOR i = 1 TO 30
numbers(i) = INT(RND * 100) - 50 ' случайные числа от -50 до 49
NEXT i
' подсчет суммы отрицательных чисел
FOR i = 1 TO 30
IF numbers(i) < 0 THEN
total = total + numbers(i) ' суммируем отрицательные числа
END IF
NEXT i
PRINT "Сумма отрицательных чисел: "; total

Этот код сначала заполняет массив numbers случайными числами от -50 до 49, затем проходит по массиву и суммирует все отрицательные числа. Результат выводится на экран.