Сортировка методом выбора на Pascal

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

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

Помечено: ,

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

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

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

    Решение:

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

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