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

[True_girl]

Ребята, помогите пожалуйста сделать следующее задание, ато я совсем запуталась:

а)Изменить значения всех положительных элементов заданного массива х=(х1,х2...хn), разделив каждый из них на его номер в массиве, и удалить первый отрицательный элемент полученного массива.

б) отсортировать этот массив по убыванию, определить количество его элементов, принадлежащих заданному отрезку [a,b].

[Sazary]

разделив каждый из них на его номер в массиве

for i:=1 to N do
 x[i] := x[i]/i;

и удалить первый отрицательный элемент полученного массива.

если предполагается простое не реальное удаление, а смещение, то что-то вроде этого:

k := 1;
while x[k]>=0 do
 inc(k);
dec(N);
for i:=k to N do
 x[i] := x[i+1];

отсортировать этот массив по убыванию

поиск по форуму по слову "сортировка"

принадлежащих заданному отрезку [a,b].

cnt := 0;
for i:=1 to N do
 if (x[i]>=a) and (x[i]<=b) then inc(cnt);

[IT-man]

только в 1 случае:

 for i:=1 to N do
if x[i]>0 then  x[i] := x[i]/i;

и вот тут

k := 1;
while x[k]>=0 do
 inc(k);
for i:=k to N-1 do //так будет проще
 x[i] := x[i+1];

[True_girl]

что значит inc?

[profi]

Инкремент (увеличение на 1).

[Sazary]

Сообщение от IT-man

только в 1 случае:

не заметил уточнение про положительные )

Сообщение от IT-man

и вот тут

for i:=k to N-1 do //так будет проще

Не совсем согласен. Смещение будет проведено, но в дальнейшем тогда везде нужно будет использовать (N-1) вместо N. По-моему, более логично уменьшить само количество элементов, раз уж происходит удаление.

[True_girl]

Ввожу код, а у меня появляется такое сообщение, что это значит?

[spamer]

Это типа не совместимость типов.

Приложение делает попытку ошибочного преобразования целых чисел, чисел с плавающей запятой, дат или времени в строку или ошибочного преобразования строк в эти типы.

[Sazary]

Приведите код и укажите, где возникает ошибка.

Скорее всего ошибка конвертации. То есть что-то не то вводите.

[True_girl]

вот, сразу после того сообщения открывается вот это окно
а начало кода выглядет вот так

unit l7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TLaba7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit_a: TEdit;
    Edit_b: TEdit;
    Label6: TLabel;
    Button_step1: TButton;
    Memo_x1: TMemo;
    Memo_x2: TMemo;
    Label9: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Button_step2: TButton;
    Memo_x: TMemo;
    procedure Button_step1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Laba7: TLaba7;

implementation
type mas=array[1..10]of real;
var x:mas;
n:integer;

{$R *.dfm}

procedure TLaba7.Button_step1Click(Sender: TObject);
var a,b:real;
i, i0, n, k :integer;
begin
a:=StrToFloat(Edit_a.Text);
b:=StrToFloat(Edit_b.Text);
n:=Memo_x.Lines.Count;
k:=0;
for i:=0 to n do
    begin
      x[i]:= StrToFloat(Memo_x.Lines[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;


end;

end.