Напечатать индексы и определить количество элементов одномерного массива G - VB
Формулировка задачи:
1. Напечатать индексы и определить количество элементов одномерного массива G размерности n, значения которых по модулю не превышают значения наибольшего элемента одномерного массива V той же размерности.
Для отладки программы контрольный пример подготовить самостоя¬тельно.
2. Пересчитать значения элементов матрицы В размерности m*n, уменьшив их на величину наименьшего элемента. Напечатать исходную и вновь полученную матрицу, а также индексы и значение наименьшего элемента.
Помогите пожалуйста написать коды к программам!!!
Решение задачи: «Напечатать индексы и определить количество элементов одномерного массива G»
textual
Листинг программы
Option Explicit Dim B() As Integer, i As Integer, j As Integer, n As Integer, m As Integer Dim min As Integer, a As Integer, c As Integer Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = InputBox("Vvedite n", , 4) m = InputBox("Vvedite m", , 5) ReDim B(1 To n, 1 To m) ' Размеры массива n-строк, m-столбцов Print "Maссив B" For i = 1 To n For j = 1 To m B(i, j) = Int(Rnd * 101) 'Заполняем массив случайными числами Print B(i, j); vbTab; Next j Print Next i min = B(1, 1) For i = 1 To n For j = 1 To m If min > B(i, j) Then min = B(i, j): a = i: c = j 'Print a(i, j); vbTab; Next j Next i Print Print "Минимальный элемент массива В (" & a & ", " & c & " ) = " & min Print Print "Новый массив B" For i = 1 To n For j = 1 To m B(i, j) = B(i, j) - min Print B(i, j); vbTab; Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д