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

disel

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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