В одномерном массиве найти номер последней пары соседних элементов, сумма которых больше заданного числа - VB

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

как найти в одномерном массиве номер последней пары соседних элементов, сумма которых больше заданного числа?

Я могу найти первую пару

For i = 0 To n - 1
If (am(i) + am(i + 1)) > c Then
Label1.Caption = "ECTb"
Picture4.Print i, i + 1;
Exit For

А как найти последнюю пару?

Решение задачи: «В одномерном массиве найти номер последней пары соседних элементов, сумма которых больше заданного числа»

textual
                            Листинг программы 
                        

                            For i = n To 1 Step -1
  If (am(i) + am(i - 1)) > c Then
  Label1.Caption = "ECTb"
  Picture4.Print i-1, i;
  Exit For
                        

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

13 голосов , оценка 4.385 из 5

Похожие ответы