Ответ:

Pascal

const

 n=6;

var

a, b :array[0..n-1] of integer;

i :integer;

begin

 for i:=0 to n-1 do begin

   write('Введите a[', i+1, '] :');

   readln(a[i]);

 end;

 writeln();

 writeln('Увеличиваем каждый элемент в 2 раза');

 for i :=0 to n-1 do begin

   b[i]:= 2*a[i];

   write(b[i], ' ');

 end;

 writeln();

 writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');

 for i:=0 to n-1 do begin

   if (i=0) or (i=n-1) then

     b[i]:= a[i]

   else

     b[i]:= a[i] +5;

   write(b[i], ' ');

 end;

 writeln();

 writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');

 for i:=0 to n-1 do begin

   if i < n div 2 then

     b[i]:= a[i]+1

   else

     b[i]:= 2 * a[i];

   write(b[i], ' ');

 end;

end.