Получить число отрицательных элементов последовательности - VB
Формулировка задачи:
Дана последовательность целых чисел а0, ..., а45. Получить число отрицательных элементов последовательности а0, ..., а35 и число нулевых элементов всей последовательности.
Желательно с пояснениями, чтобы мог пояснить
Заранее спасибо!
Решение задачи: «Получить число отрицательных элементов последовательности»
textual
Листинг программы
Sub Task(A() as integer) neg%=0 pos%=0 zer%=0 For i%=Lbound(A,1) to Ubound(A,1) if A(i%)=0 then zer%=zer%+1 elseIf A(i%) < 0 then neg%=neg%+1 else pos%=pos%+1 end if Next i% Debug.print "Положительных: ";pos% Debug.print "Нулей: ";zer% Debug.print "Отрицательных: ";neg% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д