Массив, в котором целые числа идут по возрастанию - VB
Формулировка задачи:
Есть массив, в котором целые числа идут по возрастанию. Например, массив (4, 8, 9, 12). Нужно написать программу, которая будет выводить на экран все пропущенные числа. Чисел может быть пропущено сколько угодно.
В нашем случае - результат работы: числа 5,6,7,10,11.
Решение задачи: «Массив, в котором целые числа идут по возрастанию»
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