1 2 3 4 5 6 7 8 9 | DIM c( 20 ) FOR i= 1 TO 20 INPUT c(i) NEXT i FOR i= 1 TO 20 IF i MOD 2 = 1 THEN s=s+c(i) NEXT PRINT "s=";s END |
1 2 3 4 5 6 7 8 | Dim c( 20 ) for i= 1 to 20 input c(i) next i for i= 1 to 19 step 2 s=s+c(i) next Print "s=";s |
Тестирование выполнено в программе QB64 ( Скачать )