10 DEFINT N,I,Y,L:INPUT N:DIM A(N):X=RND(-TIME)
20 FOR I=1 TO N:A(I)=INT(20*RND(1)-10):PRINTA(I);:NEXT:PRINT:IF N=1 THEN PRINT "Один-одинешенек!":END
70 FOR Y=1 TO N-1:FOR L=Y+1 TO N
80 IF A(Y)<A(L) THEN 90 ELSE SWAP A(Y),A(L)
90 NEXT:NEXT
95 U=1
100 FOR I=1 TO N-1
110 IF A(I)<>A(I+1) THEN U=U+1:NEXT I ELSE NEXT I
120 PRINT "Количество различных элементов";U