Дан массив C1,…,C11. Вычислить B=Cmax/2+C1*C2. Определить S-сумму членов ряда, для которых выполняется условие Ci>=B- QBasic(Бейсик)

CLS
DIM c(11)
FOR i = 1 TO 11
    INPUT "vvedite element massiva="; c(i)
NEXT i
FOR i = 1 TO 11
    PRINT c(i);
NEXT i
PRINT
cmax = c(1):
FOR i = 2 TO 11
    IF c(i) > cmax THEN cmax = c(i)
NEXT i
b = cmax / 2 + c(1) * c(2)
s = 0
FOR i = 1 TO 11
    IF c(i) >= b THEN s = s + c(i)
NEXT i
PRINT "B="; b
PRINT "S="; s
END