Сортировка пузырьком на Pascal

      Комментарии к записи Сортировка пузырьком на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Сортировка пузырьком на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 4 мес. назад.

  • Автор
    Сообщения
  • #3772

    Напишите программу, сортирующую массив по убыванию методом Пузырька.

    program arrays_10;
    uses crt;
    var mas:array[1..100] of integer;
      n, i, m, k, x: integer;
    begin
      clrscr;
      write('Количество элементов > ');
      read(N);
      for i:=1 to n do
      begin
        write(i, ' элемент > '); read(mas[i]);
      end;
      for k:=n downto 2 do
      begin
        m:=1; { m - место max }
        for i:=2 to k do if mas[i]>mas[m] then m:=i;
        x:=mas[m]; mas[m]:=mas[k]; mas[k]:=x;
      end;
      writeln('Отсортированный массив:');
      for i:=1 to n do write(mas[i],' ');
        readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.