Ответ: var i,n:integer; mas:array[1..999] of integer;begin readln(n); for i:=1 to n do  readln(mas[i]); for i:=2 to n-1 do begin  if mas[i] mod 2 <> 0 then   mas[i]:=mas[i]+mas[n]; end; wriiteln(‘Новый массив:’); for i:=1 to n do  write(mas[i],’ ‘);end.