Question

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

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