---

Program massive5;
Var i,min,max,imin,imax,f:integer;
a:array[1..20] of integer;
Begin
for i:=1 to 20 do
read(a[i]);
begin
min:=a[1];
for i:=2 to 20 do
if a[i]<min then begin min:=a[i];
imin:=i;
end;
end;
begin
max:=a[1];
for i:=2 to 20 do
if a[i]>max then begin max:=a[i];
imax:=i;
end;
end;
if imin>imax then begin f:=imax;
imax:=imin;
imin:=f;
end;
for i:=1 to 20 do
if (i>imin) and (i<imax) then write(0,' ') else write(a[i],' ');
end.

---

---

---