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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
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