CLS
DIM x(15)
RANDOMIZE TIMER
FOR i = 1 TO 15
x(i) = INT(RND * 11) - 5
NEXT
PRINT "massiv"
FOR i = 1 TO 15
PRINT x(i);
NEXT
PRINT
p1 = 1
p2 = 2
FOR i = 1 TO 15
IF x(i) > 0 THEN p1 = p1 * x(i): f1 = 1
IF x(i) < 0 THEN p2 = p2 * x(i): f2 = 1
NEXT
IF f1 = 0 THEN p1 = 0
IF f2 = 0 THEN p2 = 0
PRINT "proizvedenie polojitelnyh="; p1
PRINT "proizvedenie otricatelnyh="; p2
IF p1 > ABS(p2) THEN PRINT "proizvedenie polojitelnyh bolshe" ELSE IF ABS(p1) < ABS(p2) THEN PRINT "proizvedenie otricatelnyh bolshe " ELSE PRINT " odinakovo"