Автор: Bronislav

Bronislav — Thu, 18 Oct 2018 07:53:03 +0000

program Param11;//pabc.net

procedure SortArray(a: array of real);
begin
  for var i := a.High - 1 downto 0 do
  begin
    var iMax := i + 1;
    for var j := 0 to i do
      if a[j] > a[iMax] then iMax := j;
    if iMax < i + 1 then Swap(a[iMax], a[i + 1])
  end
end;

begin
  var n := 10;
  var a := SeqRandomReal(n, 0.0, 99.0)
  .Select(x -> Round(x, 2)).Println.ToArray;
  SortArray(a);
  a.Println;
end.

program Param11;//pabc.net

procedure SortArray(a: array of real);

begin

for var i := a.High - 1 downto 0 do

begin

var iMax := i + 1;

for var j := 0 to i do

if a[j] > a[iMax] then iMax := j;

if iMax < i + 1 then Swap(a[iMax], a[i + 1])

end

end;

begin

var n := 10;

var a := SeqRandomReal(n, 0.0, 99.0)

.Select(x -> Round(x, 2)).Println.ToArray;

SortArray(a);

a.Println;

end.

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

Автор: Bronislav