Пользователь вводит длину и границы массива, программа выводит исходный массив, сортирует его по убыванию. Выводит на печать минимум и максимум, меняет их местами их местами в массиве и печатает его.
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] 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.