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

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

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

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

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

textual
Листинг программы
Option Base 1
Dim s As Integer
Dim a() As Integer
 
Private Sub Command1_Click()
Command2_Click
Randomize
n = Val(Text1)
m = Val(Text2)
ReDim a(n, m)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Round(Rnd * 20 - 10)
    Picture1.Print a(i, j);
  Next
  Picture1.Print
Next
For j = 1 To m
  s = 0
  For i = 1 To n
    s = s + Sgn(a(i, j))
  Next
  If s = 0 Then Picture2.Print "Столбец :"; j
  Next
End Sub
 
Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

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

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