Question

Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.

Answer 1

program t1;
var
  i, j: integer;
  mas: array [1..10] of integer;
begin
    randomize;
    writeln ('сгенерированный масив: ');
    for i := 1 to 10 do
    begin
      mas[i] := random (100) - 50;
      write (mas[i]);
    end;

    begin
    for j:=1 to 9 do
      for i:=1 to 9-j do
         if M[i] < M[i+1] then
              swap(mas[i],mas[i+1])
    end;
    writeln ('отсортированный по убыванию массив: ');
    for i := 1 to 10 do write (mas[i]);
end;
end.