Вычислить сумму элементов массива - QBasic (27095)

Формулировка задачи:

Вычислить сумму элементов массива А(а1, а2, ..., an), значения которых по модулю лежат в заданном диапазоне от b до с ( b<=ai<=c). Помогите, пожалуйста. Весь форум облазил, ничего нету подобного.


textual

Код к задаче: «Вычислить сумму элементов массива - QBasic (27095)»

CLS
RANDOMIZE TIMER
rezult = 0
 
INPUT "Vvedite chislo elementov: ", n
INPUT "Vvedite nachalo (b): ", b
INPUT "Vvedite konec (c): ", c
 
'Zapolnyaem massiv, schitaem i vivodim rezultat
DIM a(n) AS INTEGER
FOR x = 0 TO n - 1
        a(n) = RND * 100 - 50
        PRINT a(n);
        IF ABS(a(n)) >= b AND ABS(a(n)) <= c THEN
                rezult = rezult + ABS(a(n))
        END IF
NEXT x
PRINT ""
PRINT "Rezultat: "; rezult
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.333 из 5

Источник