умоляю,Пожалуйста помогите составить программу.Заполнить массив из 500 элементов случайными числами в интервале [ 0 .. 100 ] . Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .

1

Ответы и объяснения

2013-10-11T18:40:52+00:00
Только метод пузырька.

Var a:array[1..500] of integer; b,i,j:integer;
Begin
 randomize;
 for i:=1 to 500 do a[i]:=random(101);
 
 for i:=1 to 409 do         //метод пузырька
   for j:=i+1 to 500 do
     if a[j]>a[i] then
       begin
        b:=a[j];
        a[j]:=a[i];
        a[i]:=b;
       end;

 End.