Массив, в котором целые числа идут по возрастанию - VB

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

Есть массив, в котором целые числа идут по возрастанию. Например, массив (4, 8, 9, 12). Нужно написать программу, которая будет выводить на экран все пропущенные числа. Чисел может быть пропущено сколько угодно. В нашем случае - результат работы: числа 5,6,7,10,11.

Код к задаче: «Массив, в котором целые числа идут по возрастанию - VB»

textual
Sub vv()
Dim a(), i, j
a = Array(4, 8, 9, 12)
For i = 0 To UBound(a) - 1
    For j = a(i) + 1 To a(i + 1) - 1
        Debug.Print j & ", ";
Next j, i
End Sub

10   голосов, оценка 3.300 из 5


СОХРАНИТЬ ССЫЛКУ