1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | DIM a(15)RANDOMIZE TIMERPRINT "massiv"FOR i = 1 TO 15 a(i) = INT(RND * 11) - 5 PRINT a(i); " ";NEXTPRINTpol = 1otr = 1FOR i = 1 TO 15 IF a(i) > 0 THEN pol = pol * a(i) IF a(i) < 0 THEN otr = otr * a(i)NEXTPRINT "proizv polojit="; polPRINT "proizv otrcat="; otr |
Тестирование выполнено в программе QB64 ( Скачать )