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