Найти произведения положительных и отрицательных элементов массива P1 и P2. Определить, что больше по абсолютной величине P1 или P2- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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"

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

Leave a Comment