Массив в Делфи

[Sazary]

Исправьте:

for i:=1 to n do
    begin
      x[i]:= StrToFloat(Memo_x.Lines.Strings[i-1]);
      if (x[i]>=a) and (x[i]<=b) then
            if x[i]>0 then
              begin
                x[i] := x[i]/i;
                Memo_x1.Lines.Add(FormatFloat('##0.0',x[i]));
              end;
    end;

[True_girl]

огромное спасибо за помощь!

у меня еще вопрос: по заданию надо удалить первый отрицательный элемент, а программа удаляет все отрицательный элементы, что делать?

procedure TLaba7.Button_step1Click(Sender: TObject);
var a,b:real;
i, i0, n, k,j :integer;
begin
a:=StrToFloat(Edit_a.Text);
b:=StrToFloat(Edit_b.Text);
n:=Memo_x.Lines.Count;
k:=0;
for i:=1 to n do
    begin
      x[i]:= StrToFloat(Memo_x.Lines.Strings[i-1]);
      if (x[i]>=a) and (x[i]<=b) then
            if x[i]>0 then
              begin
                x[i] := x[i]/i;
                Memo_x1.Lines.Add(FormatFloat('##0.0',x[i]));
              end;
      end;
       j := 1;
while x[j]>=0 do
 inc(j);
for i:=j to n-1 do
 x[i] := x[i+1];
end;

[Sazary]

Что-то вроде этого:

procedure TLaba7.Button_step1Click(Sender: TObject);
var a,b:real;
i, i0, n, k,j :integer;
fl : boolean;
begin
a:=StrToFloat(Edit_a.Text);
b:=StrToFloat(Edit_b.Text);
n:=Memo_x.Lines.Count;
k:=0;
fl := false;
for i:=1 to n do
    begin
      x[i]:= StrToFloat(Memo_x.Lines.Strings[i-1]);
      if (x[i]>=a) and (x[i]<=b) then
              begin
                if (x[i]<0) and not fl then
                 begin
                 fl := true;
                 continue;
                 end;
                x[i] := x[i]/i;
                Memo_x1.Lines.Add(FormatFloat('##0.0',x[i]));
              end;
      end;
       j := 1;
while x[j]>=0 do
 inc(j);
for i:=j to n-1 do
 x[i] := x[i+1];
end;