Выразить через множества a, b, c, d множество е, которому со- ответствует заштрихованная область. желательно подробно т.к. не понятно как это делается.

Для этого нужно в цикле пробежаться по элементам mass[i] и элементам mass[30 - i], тоесть чтобы не запоминать суму элементов достаточно её сравнить с сумой каких либо других пар (в нашом случае начало масива мы сравниваем с концом).
Далее создадим переменную, по каторой мы будем определять индекс элемента сума которого из соседним элементом являлась самой большой. Просто для проверки запускается 2 цикла в которых будет индекс инкрементироваться, Не важно в конце или в начале этот элемент. В цикле где есть этот элемент делаем проверку, найшли ли мы нужный элемент, если да, то записуем значение индекса в переменную, далее записуем проверку, на равенство индекса и переменной, что не даст нам изменить значение нужного индекса до тех пор, пока мы не найдем нужный, а индекс декрементируем, он все равно будет не изменен, по скольку в начале цыкла мы его увеличиваем на 1. Примерно все! 
C++
.
.
.
int main { 
int mass[30];
int i,counter,
j;
for(i = 0,i<30;i++)
{cout<<"Your mass: "<<mass[i] = rand%100<<endl; // делаем заполнение масива случайными числами от 0 до 100 
 }
//делаем собственно проверку

for(i=0;i<30;i++)
{
         for(j=0;j<30;j++)
        {
        if (mass[i]+mass[i+1]<mass[30-j]+mass[30-j-1]){
          counter=j;
             j--;
          }
             else {counter = i;
               i--;
         }
}
cout<<"Your max element : "<<mass[counter];
}
getch();
return 0;

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 

 var s := '';

 var mem := 0;

 

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 

 if (mem > 0) then insert('1', s, 1);

 

 s.Println;

end.