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

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

Leave a Comment