видоизменить сортировку вставкой. У меня есть такой код:
var
a: array[1..10000] of Word;
i, j, t: LongInt;
begin
for i := 2 to n do begin
t := a[i];

j := 1;
while a[j] < t do
Inc (j);
{
for k := i downto j + 1 do
a[k] := a[k - 1];
}
a[j] := t
end.

Так вот, нужно заменить закомментированную часть кода функцией Move

coldon    2   16.11.2020 20:35    1