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.