Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается - VB
Формулировка задачи:
Помогите пожалуйста с решением. Примерно в голове алгоритм есть, а как реализовать не могу понять;( срочно надо!
Решение задачи: «Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается»
textual
Листинг программы
Sub Task(X() as integer) for i%=1 to Ubound(X,1) if X(i%)>=0 then Debug.print i%-1 Exit sub End if Next i% Debug.print Ubound(X,1) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д