Составить программу для вычисления суммы всех нечетных элементов массива

Категория: Basic
2011-09-28 16:41:31

Задать случайным образом из промежутка [-9;9] одномерный массив A(N)

code: #basic
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

автор: ДваДва

Поделиться:

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

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