В одномерном массиве посчитать количество элементов крупнее 0.5

@Kateryn · Регистрация: 27.09.2019

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

одномерный массив
Посчитать количество элементов крупнее 0.5
Размер массива а (10)
Помогите пожалуйста

@IDK · 11.10.2019, 15:05

Visual Basic

Option Explicit
Public Sub Main()
    Dim a(10) As Single, lngX As Long, lngCounter As Long
    Randomize
    For lngX = 0& To 10&
        a(lngX) = Rnd
        If (a(lngX) > 0.5!) Then lngCounter = lngCounter + 1&
    Next lngX
    MsgBox "Êîëè÷åñòâî ýëåìåíòîâ > 0.5 = " & lngCounter, vbOKOnly
End Sub

@Kateryn 0 / 0 / 0 Регистрация: 27.09.2019 Сообщений: 8
		1
	В одномерном массиве посчитать количество элементов крупнее 0.5 09.10.2019, 21:37. Показов 693. Ответов 1 Метки нет (Все метки) одномерный массив Посчитать количество элементов крупнее 0.5 Размер массива а (10) Помогите пожалуйста 0

	11.10.2019, 15:05