Обработка двумерных массивов

@Gulya59 · Регистрация: 10.04.2011

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

Вычислить количество положительных элементов в целочисленном массиве M(3x4 элементов), значения которых не превышают 17, и записать их в одномерный массив B.
Помогите решить пожалуйста)

@~~Busine2009~~ · 08.05.2011, 19:45

Visual Basic

Sub P1()
Dim M(3, 4) As Long, B() As Long
Dim i As Integer, j As Integer
Dim Кол As Integer
'Заполняем массив данными из Excel.
For i = 0 To 3 Step 1
    For j = 0 To 4 Step 1
        M(i, j) = Cells(i + 1, j + 1).Value
    Next j
Next i
'Определение количества положительных элементов, больших 17.
For i = 0 To 3 Step 1
    For j = 0 To 4 Step 1
        If M(i, j) > 17 Then
            Кол = Кол + 1
            ReDim Preserve B(Кол - 1)
            B(Кол - 1) = M(i, j)
        End If
    Next j
Next i
'Выводим в Excel массив B.
For i = 0 To UBound(B)
    Cells(i + 1, 6).Value = B(i)
Next i
'Выводим на монитор количество положительных элементов, больших 17.
MsgBox Кол
End Sub

@YuraAAA · 08.05.2011, 19:46

Кто-то темы плодит
Вычислить количество положительных элементов массива, значения которых не превышают 17

@Gulya59 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 9
		1
	Обработка двумерных массивов 08.05.2011, 17:33. Показов 935. Ответов 2 Метки нет (Все метки) Вычислить количество положительных элементов в целочисленном массиве M(3x4 элементов), значения которых не превышают 17, и записать их в одномерный массив B. Помогите решить пожалуйста) 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	08.05.2011, 19:46	3
	Кто-то темы плодит Вычислить количество положительных элементов массива, значения которых не превышают 17 0