INPUT"vvedite kol-vo chisel ",n
RANDOMIZE TIMER
DIM a(n)
FOR i=1 TO n
a(i)=INT(RND*20)-10
NEXT
PRINT"massiv"
FOR i=1 TO n 
PRINT a(i);
NEXT
PRINT
FOR i=1 TO n\2
SWAP a(i),a(n-i+1)
NEXT
PRINT"massiv v obratnom poryadke"
FOR i=1 TO n 
PRINT a(i);
NEXT