Дан массив из 50 элементов. Найти средне-арифметическое элементов больших 0- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
DIM a(50)
RANDOMIZE TIMER
PRINT "massiv"
FOR i=1 TO 50
a(i)=INT(RND*20)-10
PRINT a(i);
NEXT
PRINT
FOR i=1 TO 50
IF a(i)>0 THEN s=s+a(i):k=k+1
NEXT
PRINT"srednee polojitelnih=";s/k

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

Leave a Comment