Массив: Получить массив из исходного, в котором к-ый элемент равен истине, если к-ый столбец исходной матрицы состоит из 0 - VB

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

По массиву А получить массив В, присвоив его k-му элементу значение true, если выполнено указанное ниже условие и значение false иначе: все элементы k-го столбца массива А нулевые Способ ввода неизвестых значений для решения матрицы "в ручную", можно выбрать любую цифру. Помогите решить задачу пожалуйста.

Решение задачи: «Массив: Получить массив из исходного, в котором к-ый элемент равен истине, если к-ый столбец исходной матрицы состоит из 0»

textual
                            Листинг программы 
                        

                            Sub Task(A() As integer, B() as Boolean)
      n1%=Ubound(A,1)
      n2%=Ubound(A,2)
      For i%=1 to n1%
           S%=0
           For j%=1 n2%
                if A(j%,i%)=0 then S%=S%+1
           Next j%
           B(i%)=(S%=n2%)
     Next i%
End Sub
                        

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

14 голосов , оценка 3.643 из 5

Похожие ответы