Получить число отрицательных элементов последовательности - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.857 из 5
Похожие ответы