В заданном массиве определить номер 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

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


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

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

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