Дан целочисленный массив размера n.Преобразовать его,прибавив к четным числам первый...

Question

Дан целочисленный массив размера n.Преобразовать его,прибавив к четным числам первый элемент.Первый и последний элементы не изменять.

Answer 1

Dim Massiv(n) as Integer

Dim x as integer

For x=1 to n-1 
If Massiv(x) mod 2 =0 then Massiv(x) += Massiv(0)
Next