Определить сумму элементов каждой строки массива 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д