Помогите с Паскалем
Задан массив A(N) (N<=60). Элементы массива, находящиеся между максимальным и минимальным элементами, отсортировать в порядке убывания. Отсортированный массив вывести на печать.

Constn=60;var a,l,i,j:integer;mas: array [1..n] of integer;begin randomize;writeln(Исходный массив ); for i:=1 to  n do  begin  mas[i]:=random(64);  write(mas[i]:4);  end;  for i:=1 to  n-1 do    for j:=1 to n-i do  if mas[j] < mas[j+1] then  begin  a:=mas[j];  mas[j]:=mas[j+1];  mas[j+1]:=a;  end;  writeln();  writeln(Массив по убыванию);  for i:=1 to  n do   write(mas[i]:4);  end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.