Сортировка массива методом вставок. Pascal

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

Главная Форумы Программирование Программирование на Pascal Сортировка массива методом вставок. Pascal

Помечено: ,

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

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

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

    program arrays_12;
    uses crt;
    var mas: array[1..100] of integer;
      i, j, _var, nom, n: integer;
    begin
      write('Количество элементов > '); read(n);
      for i:=1 to n do
      begin
        write(i,' элемент > '); read(mas[i]);
      end;
      for i:=1 to n-1 do
      begin
        nom:=i+1;
        _var:=mas[nom];
        for j:=i+1 downto 2 do
        begin
          if (_var<mas[j-1]) then
          begin
            mas[j]:=mas[j-1];
            nom:=j-1;
          end;
        end;
        mas[nom]:=_var;
      end;
      writeln('Отсортированный массив:');
      for i:=1 to n do
        write(mas[i], ' ');
      readkey;
    end.

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