"Табличные величины", урок №4

Алгоритмы сортировки линейного массива (часть 1)

Из этого урока вы узнаете:

• на какие группы делятся алгоритмы сортировки массивов
• что такое "Метод Пузырька" 

ЛИСТИНГ ПРОГРАММЫ
Метод обменной сортировки - Метод Пузырька
Program puzyrok;
uses crt;
Var i,j,c: integer;
    A: array[1..10] of integer;
Begin
clrscr;
{заполняем таблицу и печатаем её}
for i:=1 to 10 do
begin
A[i]:=random(10)-5;
writeln('A[',i:2,']=',A[i]:3);
end;
for i:=1 to 9 do
for j:=i+1 to 10 do
if A[i]>A[j] then
begin
c:=A[i];  A[i]:=A[j];  A[j]:=c
end;
writeln('РЕЗУЛЬТАТ:');
for i:=1 to 10 do
writeln('A[',i:2,']=',A[i]:3);

End.