Дан массив из 10 элементов ,Найти сумму элементов массива больше 25- QBasic(Бейсик)

CLS
DIM mas(0 to 9)
DIM summa
i = 0
WHILE i < 10
INPUT "ELEMENT MASSIVA: ", a
mas(i) = a
IF mas(i) > 25 THEN
summa = summa + mas(i)
END IF
i = i + 1
WEND
PRINT "Otvet: ", summa

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment