uses crt;
var
max,min,i,j,n,kol,indmax,indmin,t:integer;
mas,m:array[1..100] of integer;
BEGIN
clrscr;
randomize;
write('Введите n ');
readln(n);
for i:=1 to n do
begin
mas[i]:=random(11)-5;
write(mas[i]:3);
end;
max:=mas[1];
min:=mas[2];
for i:=1 to n do
begin
if mas[i]>=max then
begin
max:=mas[i];
indmax:=i;
end;
if mas[i]<=min then
begin
min:=mas[i];
indmin:=i;
end;
end;
writeln;
writeln('максимальный ',mas[indmax]);
writeln('минимальный ',mas[indmin]);
if indmin<indmax then
begin
for i:=1 to indmin-1 do
if mas[i]=0 then kol:=kol+1;
for i:=indmax+1 to n do
if mas[i]=0 then kol:=kol+1;
for i:=indmin+1 to indmax-2 do
for j:=i+1 to indmax-1 do
begin
if mas[i]>mas[j] then
begin
t:=mas[i];
mas[i]:=mas[j];
mas[j]:=t;
end;
end;
writeln;
writeln('отсортированный массив');
for i:=indmin+1 to indmax-1 do
writeln(mas[i]:3);
end
else
begin
for i:=1 to indmax-1 do
if mas[i]=0 then kol:=kol+1;
for i:=indmin+1 to n do
if mas[i]=0 then kol:=kol+1;
for i:=indmax+1 to indmin-2 do
for j:=i+1 to indmin-1 do
begin
if mas[i]>mas[j] then
begin
t:=mas[i];
mas[i]:=mas[j];
mas[j]:=t;
end;
end;
writeln;
writeln('отсортированный массив');
for i:=indmax+1 to indmin-1 do
write(mas[i]:3);
end;
writeln;
writeln('колличество нулей равно ',kol);
readln;
END.