Определить номер строки с наибольшей суммой элементов матрицы С - VB

  1. Определить номер строки с наибольшей суммой элементов матрицы С размерности n*l. помогите написать код программыыы((


textual

Код к задаче: «Определить номер строки с наибольшей суммой элементов матрицы С - VB»

Private Sub Command1_Click()
Dim n!, L!, max#, i_max!, summ#
n = InputBox("N", , 5)
L = InputBox("L", , 7)
ReDim mas(n - 1, L - 1)
max = -1000
t = ""
For i = 0 To n - 1
    summ = 0
    For j = 0 To L - 1
        mas(i, j) = Fix(Rnd(1) * 20 - 5)
        summ = summ + mas(i, j)
        t = t & mas(i, j) & vbTab
    Next
    If summ > max Then max = summ: i_max = i
    t = t & vbCrLf
Next
Text1 = t 'для text1 MultiLine должен быть true
MsgBox "Строка " & i_max & ", сумма " & max
End Sub

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Здравствуйте! Прошу помощи. Не знаю, как исправить код ниже для Эксель, чтобы одномерный массив полностью показывал элементы двумерного.

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. При помощи VB6 как сделать привязку программы? По SN материнки, процессора, жёсткого диска, сетевой карты и т.д.

  1. Дан массив размера N. Найти номер его первого локального минимума (элемент, который меньше любого из своих соседей)

  1. В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

  1. Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.