Вставка числа в массив

Скачать статью в PDF

Программа создаёт массив, заполняет его и вставляет в него значения, введённые пользователем. При запуске программы не вводите слишком большого (>10) количества элементов.

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

TextWindow.WriteLine("Количество элементов: ")

count = TextWindow.ReadNumber()

TextWindow.WriteLine("Введите массив поэлементно: ")

For i = 0 To count - 1

    a[i] = TextWindow.ReadNumber()

EndFor

TextWindow.WriteLine("Позиция: ")

position = TextWindow.ReadNumber()

If position >= count Then

    TextWindow.WriteLine("Недопустимый индекс!")

Else

    TextWindow.WriteLine("Значение: ")

    value = TextWindow.ReadNumber()

    For i = count To position + 1 Step -1

        a[i] = a[i - 1]

    EndFor

    a[position] = value

    TextWindow.WriteLine("Массив после вставки: ")

    For i = 0 To count

        TextWindow.WriteLine(a[i])

    EndFor

EndIf