Заменить элементы массив на заданные значения - 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