Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив по возрастанию
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.

Если не сложно подскажите! unsure.gif
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.
Флогримм
Guest, скачай книгу http://www.programmerz.narod.ru/books/tp4_prof.zip, там есть описание нескольких алгоритмов сортировки
написана доступно
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.