Дана матрица A (N,M). Вычислить наименьший элемент матрицы. Записать нули в строку и столбец, в которых он находится — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
minimum = A(0,0)
min_N = 0
min_M = 0
FOR i=0 TO N-1
  FOR j=0 TO M-1
    IF minimum > A(i,j) THEN
      minimum = A(i,j)
      min_N = i
      min_M = j
    END IF
  NEXT j
NEXT i
  
FOR i = 0 TO N-1
  A(i, min_M) = 0
NEXT i
  
FOR i = 0 TO M-1
  A(min_N, i) = 0
NEXT i

Похожие записи/страницы: