zadach143.BAS

{* Задача143 *}

REM basic

' Развернуть обе половинки массива в обратном порядке. считать, что массив имеет четное число элементов


CLS
INPUT "razmernost massiva";n
Dim a(n)
RANDOMIZE TIMER
For i =1 To n
a(i)=INT(RND(1)*50+1)
Next i
For i = n/2 To 1 Step -1
? a(i);
Next i
For i = n To (n/2+1) Step -1
? a(i);
Next i
End