В заданном массиве к четным элементам прибавить a.

А из элементов с четным номером вычесть b.

const n=5;

var m:array[1 ... n] of integer;

i, a, b:integer;

begin

readln (a, b);

for i:=1 to n do readln (m[i]);

for i:=1 to n do

if i mod 2 = 0 then m[i]:=m[i]+a

else m[i]:=m[i]+b;

for i:=1 to n do

writeln ('m[', i,']=', m[i]);

end.