Даю высокие баллы!!! Пожалуйста помогите!
Составить программу в бэйсике. Дан целочисленный одномерный массив состоящий из 10 элементов, сдвинуть исходный массив вправо на два элемента.
Составить программу в бэйсике. Дан целочисленный одномерный массив состоящий из 10 элементов, сдвинуть исходный массив вправо на два элемента.
More Questions From This User See All
Answers & Comments
Verified answer
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