{* Задача6 *}

REM basic

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


CLS
INPUT "Количество элементов массива – ", N
Dim A(N+1)
PRINT "Введите элементы массива, упорядоченные по возрастанию:"
For i = 1 To N
  PRINT "A(" ; i ; ") = " ; :     INPUT A(i)
Next i :   PRINT

INPUT "Введите число, которое требуется включить в массив: ", D

CLS : PRINT "Исходный массив – ";
For i = 1 To N
  PRINT A(i) ;
Next i :  PRINT

PRINT "Включаемый элемент – "; D

i = N
While i >= 1 And A[i]>D
  A(i+1) = A[i] : i = i – 1    
Wend
A(i+1) = D  

PRINT : PRINT "О т в е т : массив с включенным элементом ";
For i = 1 To N + 1
  PRINT A(i) ;
Next i : PRINT
End