Для строки выяснить, имеются ли в ней положительные числа - 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

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


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

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

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