[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;

[maxmaslo]

вот что получается(

[poli-smen]

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

вот что получается(

Когда такое получается?
В Memo1 заполнено 10 строк с числами?

[maxmaslo]

да, всё заполнено

[poli-smen]

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

да, всё заполнено

Такая ошибка стала появляться только после добавления последнего цикла? А без этого цикла появляется эта ошибка?

[maxmaslo]

тогда просто нули в листбокс выводятся

[poli-smen]

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

тогда просто нули в листбокс выводятся

Приведи полный код процедуры "TForm1.Button1Click".

[maxmaslo]

Код:

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;
m[j]:=min;
m[p]:=max;

begin
listbox1.Items.Add(floattostr(m[i]));
end;
end;

[maxmaslo]

ниже end есть тоже

[poli-smen]

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

ниже end есть тоже

Ну так осталось добавить перед последним begin заголовок цикла "for i := 1 to N do" и всё прекрасно работает.