Дан массив состоящий из 15 целых случайных чисел из промежутка от 10 до 30. Провести...

Question

Дан массив состоящий из 15 целых случайных чисел из промежутка от 10 до 30. Провести сортировку методом пузырька по убыванию

Answer 1

Program enot;
const m=15;
var     a: array[1..m] of integer; 
  i, j, k: integer;
 begin
    for i := 1 to m do  
       a[i] := random(21)+10;
    for i := 1 to m-1 do
        for j := 1 to m-i do 
           if a[j] < a[j+1] then begin 
               k := a[j]; 
               a[j] := a[j+1];   
             a[j+1] := k 
          end;  
   write ('Отсортированный массив: '); 
   for i := 1 to m do   
     write (a[i]:4);
end.