Найти сумму и количество элементов, удовлетворяющих условию |Yi|- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
DIM y(40)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO 40
y(i) = INT(RND * 20) - 10
PRINT y(i);
NEXT
PRINT
FOR i = 1 TO 40
IF ABS(y(i)) < 2 THEN k = k + 1: s = s + y(i)
NEXT
PRINT "kol-vo chisel="; k
PRINT "summa="; s

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

Leave a Comment