Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки - VB
Формулировка задачи:
Разработать ИТ, позволяющую увеличить элементы матрицы произвольной размерности, разположенные в столбце, номер которого задается вводом, на значение минимального элемента последней строки матрицыю размерность массива произвольная.
Visual basic 6.0
Решение задачи: «Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки»
textual
Листинг программы
Sub D_Ban(arr, nSt) 'Прибавляет к столбцу с номером nSt двумерного массива arr 'значение минимального элемента последней строки массива. 'Массив любого числового ИЛИ СТРОКОВОГО типа, 'первый индекс считается номером строки, второй - номером столбца. Dim i&, lr&, min lr = UBound(arr) 'номер последней строки i = LBound(arr, 2) 'номер первого столбца 'поиск минимума в строке lr min = arr(lr, i) For i = i + 1 To UBound(arr, 2) If min > arr(lr, i) Then min = arr(lr, i) Next 'прибавление числа к столбцу For i = LBound(arr) To lr arr(i, nSt) = arr(i, nSt) + min Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д