Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д