Дан одномерный массив из n элементов заменить в данной последовательности четные элементы на их удвоение
Если из 10 элементов то for i:=1 to 10 do if a[i] mod 2 = 0 then a[i]:=a[i]*2;