Код:
for i:=1 to N do
begin
j:=i;
while (j>1) and (B[j-1]>A[i]) do
begin
B[j]:=B[j-1];
j:=j-1;
end;
B[j]:=A[i];
end;
end;
Админ: пользуемся тегами для оформления кода.
нужно перебить кусок этот программы под асемблерную вставку в Delphi
помогите завтра к зачету нужно сдать прогу
