Программа
Алгоритм
Private Sub CommandButton1_Click()
Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer
For i = 1 To 3 ' Организация цикла для ввода массива по строкам
For j = 1 To 4
a(i, j) = Val(InputBox(" Введите a(" & i & " , " & j & ")" & "элемент массива "))
Next j ' Конец области действия внутреннего цикла
Next i ' Конец области действия внешнего цикла
For i = 1 To 3 ' Организация цикла для обработки массива по строкам
min = a(i, 1) ' Присвоение первого элемента каждой строки переменной min
For j = 1 To 4
If min > a(i, j) Then min = a(i, j) ' Определение минимального элемента
Next j ' Конец области действия внутреннего цикла
Debug.Print " Строка "; i; "min= "; min
Next i ' Конец области действия внешнего цикла
Читайте також: - Программа внешнего независимого тестирования 2012 года (ЗНО 2012) по истории Украины Часть первая
- РАБОЧАЯ ПРОГРАММА
<== попередня сторінка |
| |
наступна сторінка ==> |
| | | | Переглядів: 720
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|