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

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

1

Ответы и объяснения

2013-02-06T20:12:08+04:00

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