zadach76.BAS

{* Задача76 *}

REM basic

' Осуществите циклический сдвиг компонент заданного вектора a(n) вправо на две позиции , т.е получите вектор a=(An-1 ,An, A1, A2,A3, ...,An-2)


CLS
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
a(i) = i
PRINT a(i);
Next
For j = 1 To 2
For i = n - 1 To 1 Step -1
SWAP a(i), a(i + 1)
Next
Next
PRINT
For i = 1 To n
PRINT a(i);
Next
End