Дан массив А содержащий только 1 и 0 массив заполняется через read и data определите количество нулей и единиц в этом массиве
Дан массив А содержащий только 1 и 0
массив заполняется через read и data
определите количество нулей и единиц в этом массиве
Гость
Ответ(ы) на вопрос:
ГостьCONST n = 9
DIM a(n)
DATA 1,1,0,1,0,1,0,0,1
CLS
k0 = 0: k1 = 0
FOR i = 1 TO n
READ a(i)
IF a(i) = 0 THEN
k0 = k0 + 1
ELSE
k1 = k1 + 1
END IF
NEXT i
PRINT "0: "; k0, "1; "; k1
Не нашли ответ?
Похожие вопросы