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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

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

Похожие записи/страницы:

Leave a Comment