Определить сумму элементов каждой строки массива 5х5 и вывести на экран ту строку, в которой сумма элементов максимальна - VB

Узнай цену своей работы

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

Всем привет!) У меня завтра экзамен в 10 утра, а в бейсике я не очень сильна Если кто-то может помочь с написанием программы и будет онлайн в это время, отпишитесь тут и появитесь завтра, пожалууйста Спасибо всем <3

Решение задачи: «Определить сумму элементов каждой строки массива 5х5 и вывести на экран ту строку, в которой сумма элементов максимальна»

textual
Листинг программы
Private Sub Command1_Click()
   Dim A(1 To 5, 1 To 5) As Double
   Dim i As Integer, j As Integer
   Dim numStr As Integer, sumStr(1 To 5) As Double
   Dim maxSum As Double
   Randomize
   Cls
   numStr = 1
   Print "Исходный массив :"
   For i = 1 To 5
       For j = 1 To 5
           A(i, j) = Int(Rnd * 10 + 1)
           Print A(i, j); vbTab;
           sumStr(i) = sumStr(i) + A(i, j)
       Next j
       Print
   Next i
   maxSum = sumStr(1)
   For i = 1 To 5
       If maxSum < sumStr(i) Then maxSum = sumStr(i): numStr = i
   Next i
   Print
   Print "Максимальная сумма - " & maxSum & "  в строке № " & numStr
   Print
   Print "Строка"
   For i = 1 To 5
       Print A(numStr, i); vbTab;
   Next i
   
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 3.923 из 5
Похожие ответы