Определить, есть ли в данном массиве строка, содержащая больше положительных элементов - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Прошу помощи! Задание такое: Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Мой код не всегда работает Подскажите, пожалуйста, в чем ошибка.
закрывайте тему. нашел ошибку

Решение задачи: «Определить, есть ли в данном массиве строка, содержащая больше положительных элементов»

textual
Листинг программы
Dim a(100, 100) As Integer
Dim n, m, q, w As Integer
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
n = Val(Text1)
m = Val(Text2)
s = 0
q = 0
w = 0
z = 0
For i = 1 To n
For j = 1 To m
a(i, j) = -10 + Int(Rnd * 20)
Picture1.Print a(i, j);
If a(i, j) < 0 Then q = q + 1
If a(i, j) > 0 Then w = w + 1
s = s + 1
If s Mod m = 0 Then
Picture1.Print
If w > q Then
z = z + 1
End If
q = 0
w = 0
End If
Next
Next
If z > 0 Then
Picture2.Print "Да, существует, таких строк "; z
Else
Picture2.Print "Нет такой строки"
End If
End Sub

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

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