{* Задача64 *}

REM 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
 
PRINT "Задание 2: "
For I = 1 To N
         If ABS(A(I)) Mod 2 = 1 Then A(I) = 0
         PRINT A(I);
Next I
End