Дана последовательность из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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