Kaefatol
6 год назад
на qbasic. Дан массив целых чисел. Найти сумму нечётных элементов.
ОТВЕТЫ
Harrell Jessie
Oct 24, 2020
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT "s = "; s
607
Смежные вопросы:
