Составить программу для вычисления суммы всех нечетных элементов массива. Задать случайным образом из промежутка [-9;9] одномерный массив A(N) — QBasic(Бейсик)

CLS
RANDOMIZE TIMER
INPUT N
DIM A(N)
FOR I = 1 TO N
        A(I) = INT(RND * 18) - 9
        PRINT A(I);
NEXT I: PRINT
PRINT "Задание 1: "
FOR I = 1 TO N
        IF ABS(A(I)) MOD 2 = 1 THEN S = S + A(I)
NEXT I
PRINT "Сумма нечётных чисел: "; S

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