1 2 3 4 5 6 7 8 9 | DIM a( 14 ) AS INTEGER FOR i = 1 TO 14 INPUT a(i) NEXT i FOR i = 1 TO 14 IF ABS (a(i)) = 19 THEN s = s + a(i) NEXT PRINT "s="; s END |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 9 | DIM a( 14 ) AS INTEGER FOR i = 1 TO 14 INPUT a(i) NEXT i FOR i = 1 TO 14 IF ABS (a(i)) = 19 THEN s = s + a(i) NEXT PRINT "s="; s END |
Тестирование выполнено в программе QB64 ( Скачать )