Осуществите циклический сдвиг компонент заданного вектора - VB
Формулировка задачи:
Помогите пожалуйста. Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).
Решение задачи: «Осуществите циклический сдвиг компонент заданного вектора»
textual
Листинг программы
Sub LRot(A() As integer) n%=Ubound(A,1) a1%=A(1) for i%=1 to n%-1 A(i%)=A(i%+1) next i% A(n%)=a1% End Sub