Напишите программный код для решения задачи: отсортировать массив из 15 элементов (заполненный случайными числами из диапазона [-15,50]) методом Пузырька по убыванию элементов массива.

ответ на Pascal:

const N = 15;

var a: Array[1..N] of integer;

   i,j,k: integer;

begin

   for i := 1 to N do begin

       a[i] := random(-66) + 50;

       write(a[i],' ');

   end;

   writeln();

   j := N-1;

   while j > 0 do begin

       for i := 1 to j do begin

           if a[i] < a[i+1] then begin

               k := a[i];

               a[i] := a[i+1];

               a[i+1] := k;

           end;

       end;

       j := j-1;

   end;

   for i := 1 to N do begin

       write(a[i],' ');

   end;

end.

ответ на Python:

from random import randint

n = 15

a = [randint(-15,50) for i in range(n)]

print(a)

for j in range(n-1, 0, -1):

 for i in range(j):

   if a[i] < a[i+1]:

     k = a[i]

     a[i] = a[i+1]

     a[i+1] = k

print(a)

##

var n := 15;

var a := ArrRandom(n, -15, 50);

a.Println;

for var i := n - 2 downto 0 do

 for var j := 0 to i do

   if a[j + 1] > a[j] then Swap(a[j], a[j + 1]);

a.Print