В одномерном массиве найти количество элементов, сумма которых меньше заданного числа - QBasic

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

Здравствуйте. Подскажите пожалуйста алгоритм, для решения этой задачи. Нужно создать одномерный массив, заполнить элементами. Найти количество элементов, сумма которых меньше заданного числа. То есть, попарно складывать элементы массива, начиная 1-2,2-3,3-4 и тд. сравнивая их значение с введенным числом. В конце вывести количество элементов, сумма которых меньше заданного.

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

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

INPUT "Количество элементов в массиве?", n
DIM a(n)
INPUT "Введите заданное число",b
PRINT "Заполните массив"
FOR i=1 TO n
INPUT a(i)
NEXT i
c=0:s=0
FOR i=1 TO n
FOR j=i+1 TO n
s=a(i)+a(j)
IF s<b THEN c=c+1
s=0
NEXT j
NEXT i
PRINT "Количество элементов, сумма которых меньше",b,"=",c
END

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

В первой строке запрашивается количество элементов в массиве и сохраняется в переменной n.
Далее, создается массив a(n) и запрашивается ввод заданного числа, которое сохраняется в переменной b.
Выводится сообщение Заполните массив
В цикле от 1 до n происходит заполнение массива a(i) путем ввода значения с клавиатуры.
Затем, инициализируются переменные c=0 и s=0. Переменная c будет использоваться для подсчета количества элементов, а переменная s для временного хранения суммы элементов.
В цикле от 1 до n происходит сравнение суммы элементов a(i) и a(j) с заданным числом b. Если сумма меньше b, то значение переменной c увеличивается на 1.
После окончания второго цикла, выводится сообщение Количество элементов, сумма которых меньше,b,=,c.
Код завершается.