Найти произведения положительных и отрицательных элементов массива x(i) — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DIM a(15)
RANDOMIZE TIMER
PRINT"massiv"
FOR i=1 TO 15
a(i)=INT(RND*11)-5
PRINT a(i);" ";
NEXT
PRINT
pol=1
otr=1
FOR i=1 TO 15
IF a(i)>0 THEN pol=pol*a(i)
IF a(i)<0 THEN otr=otr*a(i)
NEXT
PRINT"proizv polojit=";pol
PRINT"proizv otrcat=";otr

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

Leave a Comment