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.