Пользователь вводит длину и границы массива, программа выводит исходный массив, сортирует его по убыванию. выводит на печать минимум и максимум, меняет их местами их местами в массиве и печатает его.

Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer; a:array[1..10] of integer;begin clrscr; writeln('Vedite dlinu masiva');read(n); writeln('Vedite granitu s leva');read(ls); writeln('Vedite granitu s prava');read(ld); for i:=1 to n do  begin write('A[',i,']='); readln(a[i]); end; min:=a[1];max:=a[1]; repeat f:=1; for i:=ls to ld-1 do if a[i]<a[i+1] then  begin  aux:=a[i];  a[i]:=a[i+1];  a[i+1]:=aux;  f:=0;             end;    until f=1; for i:=ls to ld do write(a[i]:3); writeln; writeln('min: ',a[ls],' max: ',a[ld]); aux:=a[ls];  a[ls]:=a[ld];  a[ld]:=aux;  for i:=ls to ld do write(a[i]:3); end.