Question

2;3 номер прошуууу 50 балов даю

Answer 1

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;

end;