Автор Андрей 1 задал вопрос в разделе Другие языки и технологии
програмирование в делфи отсортировать массив по убыванию min в конец и получил лучший ответ
Ответ от Gennady[гуру]
Доброго времени суток.
Поскольку метод сортировки не указан, получайте пузырьком.
for i := 1 to n do
for j := 1 to n - i do
if A[j] < A[j + 1] then begin {если текущий элемент меньше следующего переставим их}
T := A[j]; {сначала сохраним элемент в буфере}
A[j] := A[j + 1]; {копируем из следующего}
A[j + 1] := T; {восстанавливаем значение из буфера}
end;
Вот выбор по убываниюю.
const m=10;
type Mass = array [1..m] of Real;
const A : Mass = (5.0, 8.5, 3.2, 9.0, 15.1, 2.0, 1.0, 12.6, 0.0, 17.0);
procedure Select(n:integer; var a:mass);
var
i,j,k : integer;
x : real;
begin
for i := 1 to n-1 do begin
k := i;
x := a[ i ];
for j := i+1 to n do
if a[ j ] > x then begin
x := a[ j ];
k := j
end;
a[ k ] := a[ i ];
a[ i ] := x
end;
end;
Удачи!
vari,j,k:byte;
m:range;
begin
for i:=0 to d-2 do begin
m:=a;
k:=i;
for j:=i+1 to d-1 do if a[j]<m>;
a:=a[k];
a[k]:=m
end
end;
сортировкой сортировкой пузырьком!!
как делать эту задачу?? помогите плиииииииииз "Дан одномерный массив. Упорядочить его элементы по возрастанию." DElphi
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
подробнее...
Сортировка массива на ассемблере
>Сам пробовал, не получается.
Не верю. Пустой цикл попыткой не считается.
data
подробнее...