Заменить элементы массив на заданные значения - VB

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

При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn заменить значение каждого элемента среди Y1, Y2, ... , Yn новым значением, определяемым по правилу: Yk=Xk – Yk, если Xk >= 0; Yk= Yk –Xk, если Xk < 0.

Решение задачи: «Заменить элементы массив на заданные значения»

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

                            For k=1 to n
If X(k) >= 0 Then '(если) Xk >= 0
Y(k)=X(k) – Y(k)
Else 'если Xk < 0; 
Y(k)= Y(k) –X(k)
End If
Next
                        

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

8 голосов , оценка 4 из 5

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