В заданном массиве определить номер 1-го рядка, который имеет максимальное количество положительных элементов - VB
Формулировка задачи:
В заданyом массиве У(n, m) определить номер 1-го рядка, который имеет максимальное количество положительных элементов.
Я сделал так чтоб считало положительные элементы всего массива, а как сделать что бы считало именно в строке не пойму.
Решение задачи: «В заданном массиве определить номер 1-го рядка, который имеет максимальное количество положительных элементов»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim n As Long, m As Long, a As Long, b As Long Dim i As Long, j As Long, k As Long, iPos As Long, cPos As Long n = Text1(0).Text m = Text1(1).Text a = Text1(2).Text b = Text1(3).Text Label1.Caption = "" Label2.Caption = "" ReDim mas(n - 1, m - 1) As Long Randomize Timer For i = 0 To n - 1 For j = 0 To m - 1 mas(i, j) = Fix(Rnd * (b - a + 1)) + a Next j Next i For i = 0 To n - 1 For j = 0 To m - 1 Label1.Caption = Label1.Caption & mas(i, j) & " " Next j Label1.Caption = Label1.Caption & vbCrLf Next i For i = 0 To n - 1 k = 0 For j = 0 To m - 1 If mas(i, j) >= 0 Then k = k + 1 End If Next j If k > cPos Then cPos = k: iPos = i + 1 Next i Label2.Caption = "Максимальное количество положительных (" & cPos & ") в строке № " & iPos End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д