Заполнить матрицу случайным образом 0 и 1

@bu4a · Регистрация: 14.11.2012

Author24 — интернет-сервис помощи студентам

Матрицу М(10, 12) заполнить нулями и единицами случайным образом. Подсчитать количество N строк, в которых единиц и нулей поровну, и вывести их номера. Если таких строк не окажется, то выдать соответствующую информацию. Вывести М, N.

Добавлено через 13 минут
ЖДУ!!

@urbic · 29.11.2012, 13:35

QBasic/QuickBASIC

CLS
n = 10
m = 12
DIM m(1 TO n, 1 TO m)
PRINT "Macciv"
FOR i = 1 TO n
FOR j = 1 TO m
m(i, j) = CINT(RND)
PRINT m(i, j);
NEXT j
PRINT
NEXT i
PRINT
FOR i = 1 TO n
FOR j = 1 TO m
IF m(i, j) = 0 THEN ko = ko + 1
IF m(i, j) = 1 THEN k1 = k1 + 1
NEXT j
NEXT i
IF ko = k1 THEN
FOR i = 1 TO n
PRINT "stroki i="; i: st = st + 1
NEXT i
ELSE
PRINT "Takih strok net"
END IF

@bu4a 5 / 5 / 0 Регистрация: 14.11.2012 Сообщений: 59
		1
	Заполнить матрицу случайным образом 0 и 1 28.11.2012, 18:51. Показов 1264. Ответов 1 Метки нет (Все метки) Матрицу М(10, 12) заполнить нулями и единицами случайным образом. Подсчитать количество N строк, в которых единиц и нулей поровну, и вывести их номера. Если таких строк не окажется, то выдать соответствующую информацию. Вывести М, N. Добавлено через 13 минут ЖДУ!! 0

	29.11.2012, 13:35

Заполнить матрицу случайным образом 0 и 1

Решение