Дан массив А содержащий только 1 и 0 массив заполняется через read и data определите...

Question

Дан массив А содержащий только 1 и 0
массив заполняется через read и data
определите количество нулей и единиц в этом массиве

Comments

data? Это что-то типа Qbasic ?

---

да

---

там чтобы с Rem начиналось4

---

Rem - это комментарий, который необязателен, с чего это программу Rem начинрать*

---

нам учитель всегда говорил начинать с рем а потом еще CLS

---

Если Вам что-то говорил учитель, то это вовсе не означает, что весь остально мир тоже должен так писать)))

---

А вы можете помочь пожалуйста?))

Answer 1

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