В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел...

Question

В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел

Нужна программа написания на Бэйсике. И блок схема.

Answer 1

CLS
INPUT "N"; N
DIM A(N)
FOR I = 1 TO N
    INPUT "A"; A(I)
NEXT
FOR I = 1 TO N
    IF A(I) / 2 <> INT(A(I) / 2) THEN
        sum = sum + A(I) ^ 2
    END IF
NEXT
PRINT sum