Дан ряд из 10 чисел (Например 1 2 3 4 5 6 7 8 9 0). Найти числа которые меньше полусуммы их правого и левого соседа в ряду и вывести на экран их количество.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
n = 10
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")"
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT STRING$(80, 196)
FOR i = 2 TO n - 1
    IF a(i) < (a(i - 1) + a(i + 1)) / 2 THEN PRINT a(i);
NEXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
CLS: n = 10: DIM a(n): RANDOMIZE TIMER
PRINT "avtomaticheskij vvod sluchajnyh chisel iz zadannogo diapazona(nazhmite 1)"
PRINT "vvod chisel v ruchnuju(nazhmite 2)"
DO
    q$ = INKEY$
LOOP UNTIL q$ = CHR$(49) OR q$ = CHR$(50)
SELECT CASE q$
    CASE IS = CHR$(49)
        INPUT "vvedite nachala diapazona"; a
        INPUT "vvedite konec diapazona"; b
        FOR i = 1 TO n
            a(i) = INT(RND * ABS(b - a + 1) + a)
        NEXT
    CASE IS = CHR$(50)
        FOR i = 1 TO n
            PRINT "vvedite a("; i; ")"
            INPUT a(i)
        NEXT
END SELECT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT STRING$(80, 196)
PRINT "chisla menshe polusummy:"
FOR i = 2 TO n - 1
    IF a(i) < (a(i - 1) + a(i + 1)) / 2 THEN PRINT a(i);: k = k + 1
NEXT
PRINT
PRINT "kollichestvo chisel:"; k

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

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

Leave a Comment