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

@SanGosh · Регистрация: 26.12.2016

Author24 — интернет-сервис помощи студентам

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

echs · 24.01.2017, 16:03

Visual Basic

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

@SanGosh 0 / 0 / 0 Регистрация: 26.12.2016 Сообщений: 1
		1
	Вывести номера столбцов двумерного массива содержащих только отрицательные числа 26.12.2016, 20:42. Показов 776. Ответов 1 Метки нет (Все метки) Уважаемые форумчане, подскажите пожалуйста как это сделать, массив задан, а вот как вывести только номера столбцов в которых присутствуют только отрицательные числа, я не знаю. 0

	24.01.2017, 16:03