5 DEFINT N,K,J,I:INPUT"Число элементов";N:DIM A(N)
10 W=0:FOR L=1 TO N:INPUT A(L):NEXT L
12 FOR L1=1 TO N-1:FOR L2=L1 TO N
14 IF A(L1)>A(L2) THEN SWAP A(L1),A(L2)
16 NEXT:NEXT
20 I=N
30 GOTO 110
40 PRINT W;SPC(5);:FOR K=1 TO N:PRINT A(K);:NEXT K:PRINT:J=N-1
50 IF A(J)>=A(J+1)AND J>0 THEN J=J-1:GOTO 50
60 I=J
70 IFI>0 THEN J=N:GOTO80 ELSE GOTO 110
80 IF A(I)>=A(J) THEN J=J-1:GOTO 80
90 SWAP A(I),A(J):P1=I+1:P2=N
100 IFP1<P2 THEN SWAP A(P1),A(P2):P1=P1+1:P2=P2-1:GOTO 100
110 IF I>0 THEN W=W+1:GOTO 40