Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" - 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