Для строки выяснить, имеются ли в ней положительные числа - VB
Формулировка задачи:
Дан двухмерный массив чисел. Для каждой строки выяснить, имеются ли в ней положительные элементы.
Решение задачи: «Для строки выяснить, имеются ли в ней положительные числа»
textual
Листинг программы
Dim A() As Integer, n As Integer, m As Integer
Dim txt As String, txt2 As String, Poll As Boolean
n = InputBox("n")
m = InputBox("m")
ReDim A(1 To n, 1 To m)
For i = 1 To n
Poll = False
For j = 1 To m
A(i, j) = Int(10 * Rnd - 5): txt = txt & A(i, j) & " "
If A(i, j) > 0 Then Poll = True
Next j
txt = txt & vbCrLf
If Poll = True Then
txt2 = txt2 & "В строке " & i & " есть положительные элементы" & vbCrLf
Else
txt2 = txt2 & "В строке " & i & " нет положительных элементов" & vbCrLf
End If
Next i
MsgBox txt & vbCrLf & txt2