Автор: Bronislav

Bronislav — Thu, 18 Oct 2018 12:27:10 +0000

program Param12;//pabc.net

procedure SortIndex(a: array of real; k: array of integer);

begin

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

for var j := 0 to i do

if a[k[j] - 1] > a[k[j + 1] - 1] then

Swap(k[j], k[j + 1])

end;

begin

var n := 5;

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

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

a.Println;//26.99 56.9 94.12 5.39 35.79

var i := Range(1, n).ToArray;

SortIndex(a, i);

i.Println;//4 1 5 2 3

end.

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