Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
CLS
RANDOMIZE TIMER
DIM a(10)
FOR i = 1 TO 10
        a(i) = INT(RND * 89) + 10
        IF a(i) MOD 2 = 0 THEN s = s + a(i)
        PRINT a(i);
NEXT i: PRINT
PRINT s

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