Двумерный массив из 6 строк и 3 столбцов - VB (60925)
Формулировка задачи:
Двумерный массив из 6 строк и 3 столбцов.
- Вывести элементы 4 строки
- Вывести элементы 2 столбца
- Найти максимальный элемент и его индексы (номер строки и столбца).
- Определить количество четных значений в массиве
Решение задачи: «Двумерный массив из 6 строк и 3 столбцов»
textual
Листинг программы
Private Sub Command1_Click() Cls max = 0 n = 0 For i = 1 To 6 For j = 1 To 3 a(i, j) = Round(CDbl(Rnd * 10 + 2), 0) t = t * a(i, j) If a(i, j) > max Then max = a(i, j) m_i = i m_j = j End If If a(i, j) Mod 2 = 0 Then n = n + 1 Print a(i, j); vbTab; Next j Print vbLf Next i Print "Элементы 2-го столбца:" For i = 1 To 6 Print a(i, 2) Next i Print vbLf Print "Элементы 4-ой строки:" For i = 1 To 3 Print a(4, i) Next i Print vbLf Print "Максимальный элемент массива - " & max Print "Номер строки в которой расположен максимальный элемент - " & m_i Print "Номер столбца в котором расположен максимальный элемент - " & m_j Print "Количество чётных элементов в массиве - " & n End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д