4x2.8-4x1.8-6 x-это умножение

Ну во-первых max:=a[1]; нужно задать после того как массив готов!а вместо этого for i:=(1+b) to (n+b) dobeginif a[i] = max then begina[i+1]:=a[i];a[i]:=-5;b:=b+1;endelsea[i]:=a[i+b];end;Попробуй это b:=-50;  for i:=1 to n do    if a[i]:=max then a[i]:=a[i]+b;

4x2.8-4x1.8-6=11.2-1.2=10

да кажется но возможна даже Х