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

Категория: Basic
2011-09-26 16:32:39
code: #basic
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
Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, qbasic, чётные числа