Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник? - QBasic

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

Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник? Входные данные Сначала вводится количество отрезков,затем длины этих отрезков(ещё N чисел). Выходные данные Программа должна вывести одно число-искомое количество способов. Примеры Входные данные Выходные данные 4 1 1 2 3 4 3 0 10 100 1000 Ограничения Количество отрезков -не менее 3 и не более 20. Длина каждого отрезка-натуральное число,не превосходящее 1000.Все отрезки имеют разную длину. Программу надо решить в QBasic. Заранее спасибо.

Решение задачи: «Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник?»

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

INPUT n
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT
FOR i = 1 TO n
FOR j = i + 1 TO n
FOR k = j + 1 TO n
IF a(i) + a(j) > a(k) AND a(i) + a(k) > a(j) AND a(j) + a(k) > a(i) THEN m = m + 1
NEXT
NEXT
NEXT
PRINT  m

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

В этом коде на языке QBasic происходит следующее:

Вводится значение переменной n, которое указывает количество отрезков в наборе.
Создается массив a(n), в который последовательно записываются длины отрезков.
Затем в цикле проверяются все возможные комбинации из трех отрезков, начиная с первого, для составления треугольника.
Если выполняется условие, что сумма двух отрезков больше третьего, и сумма первого и второго отрезков больше третьего, и сумма второго и третьего отрезков больше первого, то переменная m увеличивается на единицу.
В конце выводится значение переменной m, которое показывает количество способов выбрать три отрезка для составления треугольника.