Дана целочисленная матрица А размером М х N, где М и

Дана целочисленная матрица А размером М х N, где М и N данные естественные числа. Элемент матрицы назовем особенным, если он равен сумме других частей строчки, в которой он размещен. Отыскать количество особенных частей матрицы.
Воплотить в QBASIC!!!

Задать свой вопрос
1 ответ
Для увеличения эффективности метода добавлен массив sr, хранящий суммы по строкам.

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
Esenija Shhelkovnikova
Сенкс)))
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт