Напишите программу нахождения суммы элементов массива а [1..15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100. , вообще не понимаю как это делать

A) 9x-2=5x-2               г)53-6x=4x-17 9x-5x=-2+2                   -6x-4x=-17-53 4x=0                           -10x=-70 x=0                             10x=70 б)10-3x=2x-15               x=7 -3x-2x=-15-10               д)8+2x=16+x -5x=-25                           2x-x=16-8 5x=25                             x=8 x=5 в)10x+7=8x-9 10x-8x=-9-7 2x=-16 x=-8

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln('Дан массив:'); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],'   ');     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln('Максимальный элемент массива  = ', max);   
        Writeln('Кол-во положительных элементов = ',s);
READLN;
END.