Question

Дано матрицю A[1..n,1..m]. Елементи матриці потрібно згенерувати випадковими числами з діапазону[0..50]. На друк вивести вхідну матрицю та результати обробки за умовою : обчислити суму номерів максимального та мінімального елементів. Qbasic

Answer 1

DIM m AS INTEGER, n AS INTEGER
CLS
INPUT "n,m=", n, m
REDIM a(1 TO n, 1 TO m) AS INTEGER
imin = 1: jmin = 1: imax = 1: jmax = 1
RANDOMIZE TIMER
FOR i = 1 TO n
   FOR j = 1 TO m
      t = INT(51 * RND): a(i, j) = t
      PRINT t;
      IF a(imin, jmin) > t THEN
         imin = i: jmin = j
      END IF
      IF a(imax, jmax) < t THEN
         imax = i: jmax = j
      END IF
   NEXT j
   PRINT
NEXT i
PRINT "Sum="; imin + jmin + imax + jmax

Тестовое решение
n,m=8,5
 46  23  13  43  35
 18  47  44  41  37
 45  0  34  30  7
 0  28  27  49  47
 46  18  48  39  11
 2  17  32  43  38
 31  43  15  16  16
 30  32  46  9  31
Sum= 13

Answer 2

Я відповім детально. Дано матрицю A[1..n,1..m]. Елементи матриці потрібно згенерувати випадковими числами з діапазону [0..50]. На друк вивести вхідну матрицю та результати обробки за умовою: обчислити суму номерів максимального та мінімального елементів. Qbasic

Ось один з можливих кодів на Qbasic, який виконує це завдання:

'Встановлюємо розмір матриці
CONST n = 3
CONST m = 4

'Створюємо масив для зберігання елементів матриці
DIM A(n, m) AS INTEGER

'Генеруємо випадкові числа з діапазону [0..50] та заповнюємо ними матрицю
RANDOMIZE TIMER
FOR i = 1 TO n
    FOR j = 1 TO m
        A(i, j) = INT(RND * 51)
    NEXT j
NEXT i

'Виводимо вхідну матрицю на екран
CLS
PRINT "Вхідна матриця:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT A(i, j); " ";
    NEXT j
    PRINT
NEXT i
PRINT

'Знаходимо максимальний та мінімальний елементи матриці та їх номери
max = A(1, 1)
min = A(1, 1)
max_i = 1
max_j = 1
min_i = 1
min_j = 1
FOR i = 1 TO n
    FOR j = 1 TO m
        IF A(i, j) > max THEN
            max = A(i, j)
            max_i = i
            max_j = j
        END IF
        IF A(i, j) < min THEN
            min = A(i, j)
            min_i = i
            min_j = j
        END IF
    NEXT j
NEXT i

'Обчислюємо суму номерів максимального та мінімального елементів
sum = max_i + max_j + min_i + min_j

'Виводимо результат на екран
PRINT "Максимальний елемент: "; max
PRINT "Номер максимального елемента: ("; max_i; ", "; max_j; ")"
PRINT "Мінімальний елемент: "; min
PRINT "Номер мінімального елемента: ("; min_i; ", "; min_j; ")"
PRINT "Сума номерів максимального та мінімального елементів: "; sum

Якщо ви хочете дізнатися більше про Qbasic, ви можете переглянути [QBasic/Full Book View](https://en.wikibooks.org/wiki/QBasic/Full_Book_View) або [QBasic - GeeksforGeeks](https://www.geeksforgeeks.org/qbasic/), де ви знайдете багато корисної інформації та прикладів. Якщо ви хочете дізнатися більше про операції з матрицями, ви можете переглянути [Matrix Operations - Addition, Subtraction, Multiplication, Formulas ...](https://www.cuemath.com/algebra/matrix-operations/) або [What is the matrix for a SWAP operation on two qubits?](https://quantumcomputing.stackexchange.com/questions/15129/what-is-the-matrix-for-a-swap-operation-on-two-qubits), де ви знайдете пояснення та формули. Я сподіваюся, що це вам допоможе.