Найти сумму элементов 5-й строки массива - VB
Формулировка задачи:
Сформировать массив 6 х 6 из чисел в диапазоне от –30 до 100.
Определить максимальный элемент массива.
Найти сумму элементов 5-й строки массива.
Поменять местами элементы 1-й и 6-й строк.
Результаты вывести на лист.
Решение задачи: «Найти сумму элементов 5-й строки массива»
textual
Листинг программы
- Dim a(6, 6), s
- Private Sub Command1_Click()
- Randomize
- s = 0
- For i = 0 To 5
- For j = 0 To 5
- a(i, j) = -30 + Fix(Rnd * 100)
- Next j
- Next i
- For i = 0 To 5
- For j = 0 To 5
- Print a(i, j);
- If i = 4 Then
- s1 = s1 + a(i, j)
- End If
- Next j
- Next i
- Print "Сумма в пятой строке ="; s1
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
