{* Задача332 *}

REM basic

' Вычислите сумму элементов массива А(15), значения которых по модулю лежат в заданном диапазоне: от В до С. (В<|A(I)|


CLS
INPUT "B"; b
INPUT "C"; c
If c < b Then SWAP c, b
RANDOMIZE TIMER
Dim a(15)
For i = 1 To 15
    INPUT a(i)
Next
For i = 1 To 15
    PRINT a(i);
    If ABS(a(i)) > b And ABS(a(i)) < c Then s = s + a(i)
Next
PRINT
PRINT "summa:"; s
End