Отсортировать массив по неубыванию линейной сортировкой - Turbo Pascal
Формулировка задачи:
Дан одномерный массив. С клавиатуры вводится N чисел. Отсортировать по неубыванию линейной сортировкой после первого минимального элемента
Решение задачи: «Отсортировать массив по неубыванию линейной сортировкой»
textual
Листинг программы
const n = 20; var a: array [1..n] of integer; i, j, min, imin, temp: integer; begin for i := 1 to n do readln(a[i]); writeln('Исходный массив: '); for i := 1 to n do begin // a[i] := -n div 2 + random(n); write(a[i]:4); end; min := a[1]; imin := 1; for i := 2 to n do if a[i] < min then begin min := a[i]; imin := i; end; writeln; writeln('Минимум: ', min, ' в позиции: ', imin); writeln('Отсортированный массив: '); for i := imin + 1 to n - 1 do for j := i + 1 to n do if a[i] > a[j] then begin temp := a[i]; a[i] := a[j]; a[j] := temp; end; for i := 1 to n do write(a[i]:4); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д