Найти сумму элементов массива С(20), имеющих нечетные номера- QBasic(Бейсик)

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

Leave a Comment