Найти произведение и количество положительных чисел в последовательности - VB

Узнай цену своей работы

Формулировка задачи:

Вобщем вот задание : Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел. Я , учитывыйте мои супер-навыки в программировании , а тем более VB написал программу
z1, z2 ,z3 здесь это текстовые окна Бейсика куда выводится информация, но вот проблема ( а она наверное не одна) когда я включаю программу и произвожу нужные мне действия мне Vb пишет Next without For некст без фо , хотя это фо есть , так в чём проблема? ЗЫ может у меня ещё есть ошибки в алгоритме , может кто поможет, заранее спасибо)

Решение задачи: «Найти произведение и количество положительных чисел в последовательности»

textual
Листинг программы
A = Val(InputBox("Введите следующее число", "Ввод"))
If ai > 0 Then

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы