Определить номер строки матрицы, где содержится наибольшее число положительных элементов - QBasic

Формулировка задачи:

Помогите решить задачу, ПОЖАЛУСТА! "Определить номер строки матрицы А, в которой содержится наибольшее число положительных элементов. В программе осуществить ввод элементов массивов и вывод их на экран. Основные действия задачи оформить в виде подпрограммы."

Код к задаче: «Определить номер строки матрицы, где содержится наибольшее число положительных элементов - QBasic»

textual
DECLARE SUB inb (x!(), b!())
DECLARE FUNCTION mnb! (b!())
DECLARE SUB inx (x!())
 
CLS
RANDOMIZE TIMER
CONST n = 5
CONST m = 6
DIM x(1 TO n, 1 TO m)
DIM b(1 TO n)
 
CALL inx(x())
CALL inb(x(), b())
PRINT mnb(b())
END
 
SUB inb (x(), b())
   FOR i = 1 TO n
   FOR j = 1 TO m
      IF x(i, j) > 0 THEN b(i) = b(i) + 1
   NEXT j, i
END SUB
 
SUB inx (x())
   FOR i = 1 TO n
   FOR j = 1 TO m
      x(i, j) = INT(20 * RND) - 10
      PRINT USING "####"; x(i, j);
   NEXT j: PRINT
   NEXT i: PRINT
END SUB
 
FUNCTION mnb (b())
   max = b(1)
   k = 1
   FOR i = 1 TO n
      IF max < b(i) THEN
         max = b(i)
         k = i
      END IF
   NEXT
   mnb = k
END FUNCTION

12   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ