{* Задача40 *}

REM basic

' Вставить новое значение в упорядоченный по возрастанию
' 'массив b(N), так чтобы не нарушилась сортировка.


CLS

INPUT "Количество элементов"; N
Dim b(N + 1)                
INPUT "Значение нового элемента"; z
For i = 1 To N
        INPUT b(i)
Next i

For i = 1 To N
        If z < b(i) Then k = i: Exit For
Next i

For i = N + 1 To k Step -1
        b(i) = b(i - 1)
Next i

b(k) = z  
PRINT "Вектор со вставкой"
For i = 1 To N + 1  
        PRINT b(i);
Next i
End