заменить максимальный по модулю отрицательный элемент нулем

а как мне ее объяснить

Сейчас напишу комментарии.

Написал.

//Визуально разделил циклы, чтобы было более читаемо var ar:array[1..10] of integer;max,i:integer;begin;randomize; //чтобы random() работал как надоwriteln('Array');for i:=1 to 10 dobegin;ar[i]:=random(-10,10); //случайное число от -10 до 10write(ar[i]:4);end;for i:=1 to 10 do //"проходим" через весь массивif (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}writeln;writeln('Max:-',max); //выводим на всякий случай максимумwriteln('Final array:');for i:=1 to 10 do //снова проходим по всему массивуbegin;if ar[i]=-max then ar[i]:=0; {если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}write(ar[i]:4);end;end.