Однородный массив. сосчитать количество положительных элементов - VB
Формулировка задачи:
ввести однородный массив и сосчитать количество положительных элементов
Решение задачи: «Однородный массив. сосчитать количество положительных элементов»
textual
Листинг программы
Function NumOfPositiveElements(x() As Double) As Byte Dim i As Byte ' счетчик цикла Dim temp As Byte ' переменная для временного хранения кол-во положительных элементов For i = LBound(x) To UBound(x) ' проверяем от первого элемента массива до последнего If x(i) > 0 Then ' если элемент положительный temp = temp + 1 End If Next NumOfPositiveElements = temp End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д