Дан одномерный массив из 20 элементов. Составить программу, которая подсчитывает количество отрицательное и положительных чисел. Нулевые элементы не учитывать.- Basic(Бейсик)

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

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

Leave a Comment