{* Задача142 *}

REM basic

' Изменить порядок следования элементов в массиве на обратный.


10 INPUT “Введите размер”;N 
20 Dim A(N) 
30 For I=1 To N 
40 INPUT A(I) 
50 Next I 
70 M=INT(N/2) 
80 For I=1 To M 
90 P=A(I) 
100 A(I)=A(N-I+1) 
110 A(N-I+1)=P 
120 Next I 
130 ? “Перевернутый массив” 
140 For I=1 To N 
150 PRINT “A(“;I:”)=”;A(I) 
160 Next I 
170 End