Определить количество отрицательных элементов массива - VB (59533)

Формулировка задачи:

Определить количество отрицательных элементов массива А(n) и на их место записать нули. ясли таких элементов нет на экран вывести "отрицательных элементов нет". Написать нужно на VB 6.0

Решение задачи: «Определить количество отрицательных элементов массива»

textual
                            Листинг программы 
                        

                            Sub Task(A() as integer)
      for i%=Lbound(A,1) to Ubound(A,1)
          if A(i%)<0 then
             A(i%)=0
             c%=c%+1
          End if
      next i%
      if c%=0 then MsgBox "Отрицательных нет"
End Sub
                        

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

13 голосов , оценка 3.846 из 5

Похожие ответы