Дан целочисленный массив размера 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 в описании лишняя