Задать количество элементов одномерного массива присвоить каждому элементу целочисленное значение отсортировать по убыванию
Задать количество элементов одномерного массива присвоить каждому элементу целочисленное значение отсортировать по убыванию
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.SortedDescending.Println;
end.
Тестовое решение
n=15
-64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 1
73 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78
Гость//Pascal ABC.NET 3.1 сборка 1219
Var
ar:array of integer;
i,n:integer;
procedure quicksort(var a:array of integer; Lo,Hi: integer);
procedure sort(l,r: integer);
var
i,j,x:integer;
begin
i:=l;
j:=r;
x:=a[random(r-l+1)+l];
repeat
while a[i]>x do i:=i+1;
while x>a[j] do j:=j-1;
if i<=j then
begin
if a[i]=j;
if l
Не нашли ответ?
Похожие вопросы