Delphi - одномерные массивы

[newerow1989]

Со 2-го элемента по 5-й элемент (удаляются 4 элемента), остается 1:
1,2,3,5,4

[sasha27]

а когда удаляю со 2 по 4, 4 появляется

[newerow1989]

Правильно, удаляешь 2, 3 и 5

[sasha27]

k cчитается не за номер элемента, а за сам элемент,ну как мне объясняли

[sasha27]

оставлю так,спасибо)

[newerow1989]

function GetSubStr(st:string; k:integer):integer;
var
  p, i:integer;
  r:string;
begin
   for i:=1 to k-1 do begin
      p:=pos(' ', st);
      st:=copy(st, p+1, length(st)-p);
   end;
   p:=pos(' ', st);
   if p<>0
      then r:=copy(st, 1, p-1)
      else r:=st;
   Result:=StrToInt(r);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,n,k1,k2,i1,i2,j:integer;
B:array [1..100] of integer;
begin
 n:=StrToInt(edit1.text);
for i:=1 to n do
 begin
  b[i]:=GetSubStr(Edit2.Text,i);
 end;
 k1:=StrToInt(edit3.text);
 k2:=StrToInt(edit4.text);
   i1:=1;
   For i:=1 to n do
      If b[i]=k1 then
      begin
         i1:=i;
         Break;
      end;
   i2:=i1;
   For i:=i1+1 to n do
      If b[i]=k2 then
      begin
         i2:=i;
         Break;
      end;
 for i:=i1 to i2 do
 begin
  for j:=k1 to 2*n-1 do
  b[j]:=b[j+1];
 b[2*n]:=0;
  end;
  s:='';
 for i:=1 to n-i2+i1-1  do s:=s+' '+IntToStr(b[i])+', ';

 showMessage(s);
end;

[sasha27]

конечно сойдет) спасибо большое

[newerow1989]

[sasha27]

в первой задаче ввожу массив 2 1 4 5
мне выводит восемь 4

var
s:string;
i,n,j,z:integer;
B:array [1..100] of integer;
begin
 n:=StrToInt(edt1.text);
 For i:=1 to 2*n do  begin
      b[i]:=StrToInt(GetSubStr(Edt1.Text,i));   end;
   For i:=1 to n-1 do
   begin
      z:=b[n+i];
      For j:=n+i downto (i-1)*2+3 do
         b[j]:=b[j-1];
      b[(i-1)*2+2]:=z;
   end;
   s:='';
    For i:=1 to 2*n do s:=s+' '+IntToStr(b[i])+', ';

 showMessage(s);

end;

[newerow1989]

А Edit2 где?

n:=StrToInt(edt1.text);
 For i:=1 to 2*n do  begin
      b[i]:=StrToInt(GetSubStr(Edt1.Text,i));   end;