?>
Дана целочисленная матрица а размером м х n, где м и n – заданные натуральные числа. элемент матрицы назовем особым, если он равен сумме остальных элементов строки, в которой он расположен. найти количество особых элементов матрицы. реализовать в !
Ответы
DIM m AS INTEGER, n AS INTEGER
CLS
INPUT "m,n=", m, n
REDIM a(1 TO m, 1 TO n) AS INTEGER
REDIM sr(1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO m
sr(i) = 0
FOR j = 1 TO n
a(i, j) = INT(RND * 20) - 10
PRINT USING ""; a(i, j);
sr(i) = sr(i) + a(i, j)
NEXT j
PRINT
NEXT i
DIM k AS INTEGER
k = 0
FOR i = 1 TO m
FOR j = 1 TO n
IF a(i, j) = sr(i) - a(i, j) THEN k = k + 1
NEXT j
NEXT i
PRINT k