Question

Даю высокие баллы!!! Пожалуйста помогите!
Составить программу в бэйсике. Дан целочисленный одномерный массив состоящий из 10 элементов, сдвинуть исходный массив вправо на два элемента.

Answer 1

Sub Zadanie()
    n = 10

    n = n - 1
    ReDim A(n+2)
    s = ""
    For i = 0 To n
        A(i) = Round(Rnd * 10)
        s = s & A(i) & " "
    Next

    for i = n to 0 step -1
        A(i + 2) = A(i)
    next
    A(0) = 0
    A(1) = 0

    s = s & vbNewLine & vbNewLine
    For i = 0 To UBound(A)
        s = s & A(i) & " "
    Next

    MsgBox s
End Sub

Call Zadanie()

Проверялось в VBScript