[maxmaslo]

вывод обязательно в listbox. ввод из memo. ошибка после нажатия на button.

Код:

procedure TForm1.Button1Click(Sender: TObject);
const N=10;
var m:array [1..N] of real;
j,p,i,er:integer;
max,min:real;
st,sa:string;
begin
for i:=1 to N do
begin
sa:=memo1.lines[i-1];
val(sa,m[i],er);
end;
max:=m[1];
min:=m[1];
for i:=2 to N do
begin
if m[i]>max then
begin
max:=m[i];
j:=i;
end;
if m[i]<min then
begin
min:=m[i];
p:=i;
end;
end;
end;
m[j]:=min;
m[p]:=max;
str(m[i]:2:1,st);
listbox1.Items.Add(st);
end.

[poli-smen]

Сообщение от maxmaslo

вывод обязательно в listbox. ввод из memo. ошибка после нажатия на button.

Какая ошибка?

[maxmaslo]

выводит в listbox 0

[poli-smen]

Сообщение от maxmaslo

выводит в listbox 0

Тебе нужно вывести в ListBox минимальное и максимальное значение?
Вот их и выводи, а не m[i]:

Код:

  ListBox1.Items.Add(FloatToStr(min));
  ListBox1.Items.Add(FloatToStr(max));

[maxmaslo]

вывести нужно массив, не дописал, извини

[poli-smen]

Сообщение от maxmaslo

вывести нужно массив, не дописал, извини

Сначала в цикле ищешь индексы максимального и минимального элемента (это у тебя есть).
Потом меняешь местами эти элементы массива (это у тебя тоже есть).
А потом нужно ещё один цикл организовать для вывода этого массива в ListBox1:

Код:

  for i := 1 to N do
  begin
    ListBox1.Items.Add(FloatToStr(m[i]));
  end;