Комментарии 4

• строка 17 — одна лишняя итерация:
  for i:=N downto 2 do

  Ответить

  • Полностью согласен.
    Было:

    for i:=N downto 1 do

    1	for i:=N downto 1 do

    Стало:

    for i:=N downto 2 do

    1	for i:=N downto 2 do

    Ответить

• строка 20 – еще одна: for i2:=2 to i do

  Ответить

• program array_113;//fpc procedure MySwap(var x, y: integer); var tmp: integer; begin tmp := x; x := y; y := tmp end; var a: array[1..6] of integer = (6, 5, 4, 3, 2, 1); n, i, j, imax: integer; begin n := 6; for i := n downto 2 do begin imax := i; for j := 1 to i - 1 do if a[j] > a[imax] then imax := j; if imax < i then MySwap(a[imax], a[i]); Write(n + 1 - i, ' - iteration: '); for j := 1 to n do Write(a[j], ' '); Writeln; end; Readln; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

  program array_113;//fpc   procedure MySwap(var x, y: integer); var   tmp: integer; begin   tmp := x; x := y; y := tmp end;   var   a: array[1..6] of integer = (6, 5, 4, 3, 2, 1);   n, i, j, imax: integer;   begin   n := 6;      for i := n downto 2 do   begin     imax := i;     for j := 1 to i - 1 do       if a[j] > a[imax] then imax := j;          if imax < i then MySwap(a[imax], a[i]);          Write(n + 1 - i, ' - iteration: ');     for j := 1 to n do Write(a[j], ' ');     Writeln;   end;      Readln; end.

  program array_113;//pascalABC.net begin var n := 6; var a := Arr(6, 5, 4, 3, 2, 1); for var i := n - 1 downto 1 do begin var imax := i; for var j := 0 to i - 1 do if a[j] > a[imax] then imax := j; if imax < i then Swap(a[imax], a[i]); a.Println; end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  program array_113;//pascalABC.net   begin   var n := 6;   var a := Arr(6, 5, 4, 3, 2, 1);      for var i := n - 1 downto 1 do   begin     var imax := i;     for var j := 0 to i - 1 do       if a[j] > a[imax] then imax := j;     if imax < i then Swap(a[imax], a[i]);     a.Println;   end; end.

  Ответить