{* Задача25 *}
REM basic
'
Записать массив а1, а2, …, аn в обратном порядкеCLS
INPUT "Введите число элементов массива"; n
Dim a(n)
For i=1
To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1
To n
PRINT a(i);
Next i
PRINT
For i=1
To n/2
SWAP a(i), a(n+1-i)
Next i
For i=1
To n
PRINT a(i);
Next i
End