а) Z=3

б) Z=8

в) Z=7

Просто создаешь диаграмму на основании двух функций, одна из который твоя функция, вторая — точка М.

Program ex;
uses crt;
const n=10; //число элементов в массиве
var mas,mas1,mas2:array[1..n] of real; //сами массивы (mas1 и mas2 — вспомогательные)
    a,b,z:shortint;
    i,m,l,k,fl:byte;
    max,sum:real;
begin
  clrscr; //очистка экрана перед запуском программы
  Randomize; //генератор случайных чисел
  max:=0; k:=1; //задаем предварительные значения
  z:=1; fl:=0;
  sum:=0;
  writeln('Массив:');
  for i:=1 to n do
   begin
    z:=z*(0-1); //число для того, чтобы элементы массива были и отрицательными и положительными
    mas[i]:=random(10*n)/3*z; //генерируем случайное число и записываем его в элемент массива под номером i
    write(mas[i]:4:2,'; '); //вывод каждого элемента массива на экран
    if (max<abs(mas[i])) then //попутно ищем максимальное значение элемента по модулю
     begin
      max:=abs(mas[i]); //если нашелся таковой, то запоминаем его значение
      k:=i; // и его порядковый номер в массиве
     end;
    if ((mas[i]>0) and (fl=0)) then fl:=i; //попутно ищем первый положительный элемент
    if (fl>0) then sum:=sum+mas[i]; // если нашли, то начинаем считать сумму элементов находящихся после него
   end; writeln;
  writeln('Максимальное по модулю значение элемента под номером ',k);
  writeln('Сумма элементов массива, расположенных после первого положительного элемента: ',sum-mas[2]:4:2);
  //Этап изменения самого массива, в зависимости того, входит ли значение элемента массива в интервал от a до b
  write('Введите a: '); readln(a); //вводим значение а
  write('Введите b: '); readln(b); //вводим значение b
  m:=0; l:=0;
  for i:=1 to n do //перебираем весь массив
   begin
   if (mas[i]>=a) and (mas[i]<=b) then
    begin
     m:=m+1;
     mas1[m]:=mas[i]; //если между a и b, то записываем значение в массив mas1
    end
   else
    begin
     l:=l+1;
     mas2[l]:=mas[i]; //если не входит в интервал a и b, то записываем значение в массив mas2
    end;
   end;
  //забиваем все значения в нужном нам порядке
  if (m>0) then for i:=1 to m do mas[i]:=mas1[i];
  if (l>0) then for i:=m+1 to m+l do mas[i]:=mas2[i-m];
  writeln('Новый массив:');
  for i:=1 to n do write(mas[i]:4:2,'; ');
end.