Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" - VB

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

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

Доброго времени суток! Дан массив целых чисел - A={ai}, где i={1,2...n}. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" Например: Если А={2,4,-3,0,5,-2,5} , то результат:6 (число -2)

Решение задачи: «Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!"»

textual
Листинг программы
Sub Task(A() as integer)
  For i%=Ubound(A,1) to 1 Step -1
       If A(i%) < 0 then
          Debug.print A(i%);" ";i%
          Exit Sub
       End if
  Next i%
  Debug.Print "Отрицательных чисел нет" 
End Sub

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


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

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

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