Подсчитать количество замен в векторе - VB

Узнай цену своей работы

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

При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn заменить значение каждого неположительного элемента вектора X1, X2, ..., Xn абсолютной величиной соответствующего (по номеру) элементом вектора Y1, Y2, ... , Yn и подсчитать количество замен.

Решение задачи: «Подсчитать количество замен в векторе»

textual
Листинг программы 
Sub Task(X() as double, Y() as double, k as integer)
       k=0 
       for i%=1 to Ubound(X,1)
           if X(i%) <= 0 then 
              X(i%)=abs(Y(i%))
              k=k+1
           end if
       Next i%
end sub

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

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

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

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