Найти сумму элементов 5-й строки массива - VB

Формулировка задачи:

Сформировать массив 6 х 6 из чисел в диапазоне от –30 до 100. Определить максимальный элемент массива. Найти сумму элементов 5-й строки массива. Поменять местами элементы 1-й и 6-й строк. Результаты вывести на лист.

Решение задачи: «Найти сумму элементов 5-й строки массива»

textual
                            Листинг программы 
                        

                            Dim a(6, 6), s
 
Private Sub Command1_Click()
 
 Print
     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
     Print
  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
   Print "Сумма в пятой строке ="; s1
    
End Sub
                        

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

14 голосов , оценка 3.929 из 5

Похожие ответы