Автор: Bronislav

Bronislav — Fri, 17 Aug 2018 07:27:25 +0000

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;//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.

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.

Автор: Bronislav

Bronislav — Fri, 17 Aug 2018 07:11:53 +0000

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

Автор: Anton

Anton — Wed, 09 Mar 2016 06:38:23 +0000

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

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

Автор: olegst1975

olegst1975 — Tue, 08 Mar 2016 21:35:23 +0000

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

Комментарии: Решаем задачи Абрамян на Паскале. Array113

Автор: Bronislav

Автор: Bronislav

Автор: Anton

Автор: olegst1975