var k,j,t: integer;
begin
for i:= 2 to n do
begin
k:=1; t:=c[i]; j:=i-1;
while j>0 do
begin
if c[j]<=c[i] then
begin
k:=j;
j:=0;
end else
j:=j-1;
end;
j:=i;
while j>k+1 do
begin
c[j]:=c[j-1];
j:=j-1;
end;
c[k+1]:=t;
end;
writeln('vstavka');
vivod(c);
end;
Сообщение отредактировано: SkIv -