Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию.…

var a: array[1… 15] of char; i,min,max: integer; Begin min=1; max=1; for i: =1 to 15 do begin a[i]: =chr (random (256); if a[min]>a[i] then min: =i; if a[max]