Дан целочисленный массив размера 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