Блок схема в QBasic
CONST n = 27
DIM k
RANDOMIZE TIMER
FOR i = 1 TO n
k(i) = INT(RND * 91) - 45
NEXT
p = 1: im = 1
FOR i = 1 TO n
p = p * k(i)
IF k(i) > k(im) THEN im = i
NEXT
FOR i = 1 TO n
PRINT k(i);
NEXT
PRINT STRING$(80, 196)
PRINT "p="; p, "max = k("; im; ") = "; k(im)
FOR i = 1 TO n
IF k(i) < 0 THEN k(i) = 0
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
PRINT k(i);
NEXT
CONST n = 27
DIM k
RANDOMIZE TIMER
FOR i = 1 TO n
k(i) = INT(RND * 91) - 45
NEXT
p = 1: im = 1
FOR i = 1 TO n
p = p * k(i)
IF k(i) > k(im) THEN im = i
NEXT
FOR i = 1 TO n
PRINT k(i);
NEXT
PRINT STRING$(80, 196)
PRINT "p="; p, "max = k("; im; ") = "; k(im)
FOR i = 1 TO n
IF k(i) < 0 THEN k(i) = 0
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
PRINT k(i);
NEXT