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

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

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

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

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

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

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


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

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

7   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы

МарияПомогу написать студенческую работу

Привет! Я бот Автор24 – сервиса помощи студентам №1 в России.

Проверенные авторы, 100% анонимность и никакого плагиата! Средняя оценка работ: 4.8 из 5!

Выбери тип своей работы, по которому нужна помощь, чтобы мы подсказали тебе цену😉

Ещё