Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов

22.05.2012, 11:50. **Показов** 1523. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов.
Заранее благодарствую.
Напишите пожалуйста принцип действий..

@Catstail · 22.05.2012, 12:13

Visual Basic

Sub Task(A() as integer)
 
Dim i as integer
 
     For i=Lbound(A,1) To Ubound(A,1)
 
          If A(i) > 0 then
            A(i)=2*A(i)
          Else
            A(i)=-A(i)
          End if
 
     Next i
 
End sub

darkalko
		1
	Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов 22.05.2012, 11:50. Показов 1523. Ответов 1 Метки нет (Все метки) Удвоить значения положительных элементов массива A и изменить знак у отрицательных элементов. Заранее благодарствую. Напишите пожалуйста принцип действий..

	22.05.2012, 12:13