Question

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

Answer 1

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

4cd577c5d7baaace23183f72b50809f9.pas

Answer 2

Готово. 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]

4cd577c5d7baaace23183f72b50809f9.pas

Answer 3

if a[i] end;
a[max]:=0;
a[min]:=0;
for i:=1 to n do write(a[i]:4);
end.