B массиве произвольной длины N найти минимальный и максимальный
элементы и заменить их нулями.

Готово. Возникли вопросы? Пиши ниже.

Готово. program pr; var a:array of integer;i,min,max,n:integer; begin write('Размер массива: '); readln(n); setlength(a,n); writeln(); writeln('Заполняем массив...'); for i:=1 to n do begin write(i,' элемент: '); readln(a[i]); if i=1 then begin min:=i; max:=i; end; if a[i]>a[max] then max:=i; if a[i]