caHbka_pascal

const
  size = 50; {массив из 50 элементов}
type
  mas = array[1..size] of integer;
var
  a : mas;
  i : integer;

{процедура сортировки "пузырьком"}
procedure bubble(var q : mas);
var x, y, z : integer;
begin
  for x := 1 to size do
    for y := size downto x do
      if q[x] >= q[y] then
      begin
        z := q[x];
        q[x] := q[y];
        q[y] := z
      end
end;

begin
  {запоняем массив случайными числами и выводим}
  randomize;
  writeln('массив:');
  for i := 1 to size do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4)
  end;
  {вызываем процедуру сортировки}
  bubble(a);
  {выводим отсортированный массив}
  writeln;
  writeln('отсортированнаый массив: ');
  for i := 1 to size do
    write(a[i]:4);
  readln
end.