2;3 номер прошуууу 50 балов даю
2.
mas[(m+n) div 2)] := abs (mas[m] - mas[n]);
3.
for i:= m to n do
begin
if (mas[i]<0) and (i mod 2=0) then mas[i] :=0;</p>
end;
Спасибо огромное