1 2 3 4 5 6 7 8 9 10 11 12 13 | DIM M( 12 ) AS INTEGER RANDOMIZE TIMER CLS ' Заполнение случ. образом FOR i = 1 TO 12 M(i) = RND * 21 - 10 PRINT M(i); NEXT: PRINT ' Ищем сумму FOR i = 1 TO 12 IF ABS (M(i)) < 6 THEN S = S + M(i) NEXT PRINT "S ="; S |
Тестирование выполнено в программе QB64 ( Скачать )