Вывести номера столбцов двумерного массива содержащих только отрицательные числа - VB

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

Уважаемые форумчане, подскажите пожалуйста как это сделать, массив задан, а вот как вывести только номера столбцов в которых присутствуют только отрицательные числа, я не знаю.


textual

Код к задаче: «Вывести номера столбцов двумерного массива содержащих только отрицательные числа - VB»

Option Explicit
 
Dim i%, j%, k%, N%
 
Private Sub com1_Click()
    Cls
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim a%(1 To N, 1 To N)
    
    For i = 1 To N
    For j = 1 To N
        a(i, j) = 80 * Rnd - 60
        Print Format(a(i, j), "00  ");
    Next: Print
    Next: Print
    Print "Номера столбцов"
    
    For j = 1 To N
        k = 0
        For i = 1 To N
            If a(i, j) < 0 Then k = k + 1
        Next i
        If k = N Then Print j;
    Next j
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.167 из 5

Источник