CLS
RANDOMIZE TIMER
DIM A(10)
RET:
INPUT "Skol'ko pervyh elementov peremnojit'? ", C
IF C > 10 THEN GOTO RET
S = 1
FOR I = 1 TO 10
A(I) = INT(RND * 10)
IF C >= I THEN
S = S * A(I)
END IF
PRINT A(I)
NEXT
PRINT "==========================================="
PRINT "Proizvedenie: "; S