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