Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизКак организовать вывод чисел по возрастанию(убыванию)? Найти похожие ветки
← →
KaPaT (2002-02-22 01:28) [8]Ладно пожалею. Не обещаю что ошибок не будет (спать хочу).
Вот тебе упорядочевание массива по возрастанию:
For i:= 1 to n do
begin
For j:= 1 to (n-1) do
If mas[j]>mas[j+1] then
begin
help:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=help;
end;
end;
n - кол-во эллиментов в массиве
mas - сам массив
help - просто вспомогательная переменная для обмена
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c