ТутРешу.Ру

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

Задание:

В одномерном массиве из 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




Знаете другой ответ?

Отправить свой ответ