Задание 4 Параграф 22 ГДЗ Семакин 9 класс (Информатика)

Задача

program sort;
const
n = 10;
var
a: array [1..n] of integer;
i, j, c, k: integer;
begin
writeln(‘ Формирование и вывод исходного массива’);
randomize;
for i := 1 to n do
begin
a[i] := random(100) — 50;
write(a[i], ‘ ‘);
end;
writeln;
for i := 1 to n — 1 do
begin
k := i;
for j := i + 1 to n do
if a[j] < a[k] then k := j; c := a[i]; a[i] := a[k]; a[k] := c; end; for i := 1 to n do write(a[i], ' '); end.

Подробный ответ

Для сортировки массива по возрастанию удобно использовать сортировку выбором. На каждом шаге находим в неотсортированной части массива наименьший элемент и меняем его местами с первым элементом этой части.

program sort;
const
  n = 10;
var
  a: array [1..n] of integer;
  i, j, c, k: integer;
begin
  writeln(‘ Формирование и вывод исходного массива’);
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100) — 50;
    write(a[i], ‘ ‘);
  end;
  writeln;
  for i := 1 to n — 1 do
  begin
    k := i;
    for j := i + 1 to n do
      if a[j] < a[k] then k := j;
    c := a[i];
    a[i] := a[k];
    a[k] := c;
  end;
  for i := 1 to n do
    write(a[i], ‘ ‘);
end.