不知这样行不行：
CLS
INPUT n
DIM a(n + 1)
FOR i = 1 TO n
RANDOMIZE TIMER
a(i) = INT(RND * 900 + 1)
NEXT i
PRINT
FOR i = 1 TO n - 1
    FOR j = i + 1 TO n
        IF a(i) > a(j) THEN SWAP a(i), a(j)
    NEXT j
NEXT i
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
    FOR j = i + 1 TO n
    FOR k = j + 1 TO n
    IF a(i) + a(j) < a(k) OR a(j) - a(i) > a(k) THEN a(i) = 0
     NEXT k
    NEXT j
NEXT i
PRINT
FOR i = 1 TO n
IF a(i) <> 0 THEN PRINT a(i): s = s + 1
NEXT i
PRINT s

太简单，用组合！

对     组合的方法

经典组合

不错不错

？

有什么问题啊

没