В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел Нужна программа написания на Бэйсике. И блок схема.
В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел Нужна программа написания на Бэйсике. И блок схема.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы