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

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

При заданных значениях X₁, X₂, ..., X_n и Y₁, Y₂, ... , Y_n заменить значение каждого неположительного элемента вектора X₁, X₂, ..., X_nабсолютной величиной соответствующего (по номеру) элементом вектора Y₁, Y₂, ... , Y_n и подсчитать количество замен.

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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