Зміна порядку елементів масиву(списку)

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Створіть у власній папці – папку Cортування масиву

Завдання 1

Створіть проєкт для сортування масиву із 10 випадкових чисел від 0 до 50. На формі розташуйте два багаторядкових поля, для введення масиву випадкових чисел та виведення відсортваного масиву, при натисканні на кнопку відсортувати Відсортувати відбувається виведення невідсортованого та відсортованого масиву. Збережіть проект у папці з іменем Завдання 57.1, створеній у вашій папці.

1.               Запрограмуйте клавішу Відсортувати:

procedure TForm1.Button1Click(Sender: TObject);

const n=10;

  var y: boolean;

    i, z, p: integer;

    mas: array [1..n] of integer;

begin

   Randomize;

   for i:=1 to n do

   begin

       mas[i]:= Random (50);

       Memo1.Lines.Add(IntToStr(mas[i]));

   end;

   p:=n-1;

   repeat

     y:=true;

     for i := 1 to p do

     begin

         if mas[i]>mas[i+1] then

         begin

           z:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=z;

           y:=false;

         end;

     end;

     p:=p-1;

   until y;

   for i:=1 to n do

   Memo2.Lines.Add(IntToStr(mas[i]));

end;                               

2. Збережіть проект у своїй папці із іменем Завдання 57.1 та скомпілюйте програму. Проведіть тестування.