Массив по возрастанию, Помогите пжалуйста Опции

[Guest]

Есть массив чисел (любой, заполните его любыми извест. способами). Распечатать этот массив по возрастанию - т.е. сначала минимальный элемент, и т.д. по возрастанию.


Вот наброски.А как дальше?могу тока найти минимальное число:

Код

program l;
var
m:array[1..4]of integer;
i:byte;
min:integer;
begin
writeln('‚ўҐ¤ЁвҐ 4 зЁб« :');
for i:=1 to 4 do
begin
write('‚ўҐ¤Ё зЁб«®#',i,' ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to 4 do
if min >m[i] then min:=m[i];
write(min);
readln;
end.

Если не сложно подскажите!

[Amro]

Можно использовать любой метод сортировки, например пузырьковая

Код

Program BubbleSort;
uses crt;
Const N=20;
Var mas    : array[1..100] of integer;
i,j,p : integer;      
Begin
clrscr; randomize;
for i:=1 to N do begin
 mas[i]:=random(99); write(mas[i]:3); end;
{сортировка данных}
for i:=1 to N do
 for j:=1 to N-i do
 if mas[j]>mas[j+1] then
  begin  {Обмен элементов}
   p:=mas[j];
   mas[j]:=mas[j+1];
   mas[j+1]:=p;
  end;
{Вывод отсортированного массива}
writeln;
for i:=1 to N do
 write(mas[i]:3);
End.

Сообщение отредактировано: Amro - 31.10.2004 1:58

[Флогримм]

Guest, скачай книгу http://www.programmerz.narod.ru/books/tp4_prof.zip, там есть описание нескольких алгоритмов сортировки
написана доступно