Дан двухмерный массив А(N,M) состоящий из нулей и единиц. Определить сколько в массиве нулевых элементов и единиц — Basic(Бейсик)

При составлении массива использовать функцию RND(1).

INPUT"vvedite chislo strok ",n
INPUT"vvedite chislo stolbcov ",m
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n
FOR j=1 TO m
a(i,j)=INT(RND*2)
NEXT
NEXT
PRINT"massiv"
FOR i=1 TO n
FOR j=1 TO m
PRINT a(i,j);
NEXT
PRINT
NEXT
FOR i=1 TO n
FOR j=1 TO m
IF a(i,j)=0 THEN kol0=kol0+1 ELSE kol1=kol1+1
NEXT
NEXT
PRINT"kolichestvo nuley=";kol0
PRINT"kolichestvo edinic=";kol1

Leave a Comment