В одномерном массиве а(10) найти произведение первых n элементов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

Похожие записи/страницы: