Напечатать индексы и определить количество элементов одномерного массива 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы