Подсчитать количество элементов массива больших 5 и меньших 10 - VB
Формулировка задачи:
Разработать проект решения задачи с применением одномерных массивов:
В заданном одномерном массиве, состоящем из 10 элементов, подсчитать количество элементов больших 5 и меньших 10.
Решение задачи: «Подсчитать количество элементов массива больших 5 и меньших 10»
textual
Листинг программы
- Function counter(A() As integer, Optional k as integer = 1) As integer
- If k=Ubound(A,1) then
- If A(k)> 5 and A(k) < 10 then
- counter=1
- else
- counter=0
- end if
- Else
- If A(k)> 5 and A(k) < 10 then
- counter=1+counter(A(),k+1)
- else
- counter=counter(A(),k+1)
- end if
- End if
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
