10. Дан одномерный массив. К четным элементам массива прибавить В, а из нечетных вычесть С. Значения В и С вводятся с клавиатуры

Var

a:array[1 ... ? сколько у тебя элементов в массиве?] of integer;

b, c, i:integer;

begin

read (b, c) ;

for i:=1 to / kol-vo elementov v massive / do

begin

read (a[i]) ;

write (a[i],' ') ;

end;

writeln

for i:=1 to / kol-vo elementov v massive / do

begin

if i mod 2=0 then

a[i]:=a[i]+b

else

a[i]:=a[i]-c;

write (a[i],' ')

end;

end.