Помогите с Паскалем Задан массив A(N) (N<=60). Элементы массива, находящиеся между...

Question

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

Answer 1

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.