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
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 ( Скачать )