Задание:
В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел Нужна программа написания на Бэйсике. И блоксхема.
Решение:
CLSINPUT "N"; NDIM A (N) FOR I=1 TO N INPUT "A"; A (I) NEXTFOR I=1 TO N IF A (I) / 2 <> INT (A (I) / 2) THEN sum=sum+A (I) ^ 2 END IFNEXTPRINT sum
Знаете другой ответ?