Дан целочисленный массив размера n. преобразовать его, прибавив к нечетным числам последний элемент. первый и последний элемент массива не изменять.

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.

Программа на паскале с результатом работы смотри во вложении 
P.S. переменная j в описании лишняя