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

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