Двумерный массив из 6 строк и 3 столбцов - VB (60930)
Формулировка задачи:
Двумерный массив из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д