Умножить все элементы первой строки на минимальный элемент первого столбца матрицы - VB
Формулировка задачи:
Помогите пожалуйста с задачкой:
Нужно составить программу с использованием массивов, вот сама задача:
Умножить все элементы первой строки на минимальный элемент первого столбца матрицы.
Буду очень благодарен тому кто поможет
Решение задачи: «Умножить все элементы первой строки на минимальный элемент первого столбца матрицы»
textual
Листинг программы
Option Explicit
DefInt A-N
Dim A(), i, j, k, m, n, min As Integer
Private Sub Command1_Click()
Cls
Randomize
n = InputBox("Введите число строк", , 10)
m = InputBox("Введите число столбцов", , 10)
ReDim A(1 To n, 1 To m)
Print "Исходная матрица :"
For i = 1 To n
For j = 1 To m
A(i, j) = Int(21 * Rnd - 10) ' Заполнение массива случ числами от -10 до 10
Print A(i, j); vbTab; ' Печать на форму
Next j
Print
Next i
min = A(1, 1)
For i = 1 To n
If min > A(i, 1) Then min = A(i, 1)
Next i
Print
Print "Минимальный элемент первого столбца равен "; min
Print
For j = 1 To m
A(1, j) = A(1, j) * min
Next j
Print "Результат :"
Print
For i = 1 To n
For j = 1 To m
Print A(i, j); vbTab; ' Печать на форму
Next j
Print
Next i
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д