Автор: Bronislav

Bronislav — Fri, 17 Aug 2018 10:56:53 +0000

program array_114;//pascalABC.net

begin
  var n := 6;
  var a := Arr(6, 5, 4, 3, 2, 1);
  
  for var i := 1 to n - 1 do
  begin
    if a[i - 1] > a[i] then
    begin
      var j := 0;
      while a[j] < a[i] do Inc(j);
      
      var tmp := a[i];
      for var k := i downto j + 1 do
        a[k] := a[k - 1];
      a[j] := tmp;
    end;
    a.Println;
  end;
end.

program array_114;//pascalABC.net

begin

var n := 6;

var a := Arr(6, 5, 4, 3, 2, 1);

for var i := 1 to n - 1 do

begin

if a[i - 1] > a[i] then

begin

var j := 0;

while a[j] < a[i] do Inc(j);

var tmp := a[i];

for var k := i downto j + 1 do

a[k] := a[k - 1];

a[j] := tmp;

end;

a.Println;

end;

end.

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

Автор: Bronislav