INPUT "vvedite razmer masiva ", n
DIM a(n)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
a(i) = INT(100 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i=1 TO n
FOR j=2 TO n
IF a(j)>a(j-1)THEN SWAP a(j),a(j-1)
NEXT
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT i