list index out of bounds (0)

[Ислам99]

Не понимаю где у меня ошибка, по делфи новичок

procedure TForm1.Button1Click(Sender: TObject);
const
SIZE=5; //Количество элементов массива.
var
i:integer; //Индекс элементов массива.
max:integer; //Текущее значение максимума.
min:integer; //Текущее значение минимума.
k:integer; //Счетчик чисел которые меньше предыдущих.
j:integer; //Счетчик чисел которые больше предыдущих.
Sr_arif:double; //Среднее арифметическое.
n:integer; //количество строк введенных в поле Memo.
a:array[1..SIZE]of integer;//массив.

begin

n:=Memo1.Lines.Count; //подсчет кол-ва строк введенных в поле Memo
//Если количество строк, введенных пользователем меньше 5 то
//выведем на экран сообщение об ошибке и выйдем из процедуры.
if n<SIZE then
begin
ShowMessage('Исходные данные не введены!');
Exit;
//выход из процедуры обработки события
end;
//Если количество введенных строк превышает размер массива то
//выведем сообщение об ошибке. Далее будем обрабатывать только
//первые 5 записей.
if n>SIZE then
begin
ShowMessage('Количество строк превышает размер массива.');
n:=SIZE;//будем вводить только первые SIZE строк
end;

//Перевод масcива строк в массив целых чисел.
for i:=1 to n do
a[i]:=StrToInt(Form1.Memo1.Lines[i-1]);

max:=a[1]; //Присвоим значение большего числа переменной max.
min:=a[1];//Присвоим значение меньшего числа переменной min.
j:=0;//Значение счетчика в ноль.
k:=0;//Значение счетчика в ноль.
Sr_arif:=0;
for i:=1 to SIZE do //Перебираем элементы массива.
begin
if a[i]>max then //Если текущий элемент больше max,
begin
max:=a[i]; //то присвоить его значение max
inc(j); //и увеличить значение счетчика на 1.
end;
if a[i]<min then //Если текущий элемент меньше min,
begin
min:=a[i]; //то присвоить его значение min,
inc(k); //увеличить значение счетчика на 1
Sr_arif:=Sr_arif+a[i]; //и прибавить его к текущему значению суммы.
end;
end;
if k<>0 then Sr_arif:=Sr_arif/k; //Вычисление среднего арифметического.

//Вывод количества чисел которые больше предыдущих.
ListBox1.Items[0]:=IntToStr(j);
//Вывод среднего арифметического чисел которые меньше предыдущих.
ListBox1.Items[1]:=FloatToStr(Sr_arif);//

end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Ислам99

//Вывод количества чисел которые больше предыдущих.
ListBox1.Items[0]:=IntToStr(j);
//Вывод среднего арифметического чисел которые меньше предыдущих.
ListBox1.Items[1]:=FloatToStr(Sr_arif);//

Так нельзя работать с элементами списка.

Почитайте как работать с TListBox. Например, первая ссылка по поиску - ТЫЦ
или на офф.сайте - ТЫЦ

замените эти строчки на такие, например:

   //Вывод количества чисел которые больше предыдущих.
   ListBox1.Items.Clear;
   ListBox1.Items.Add(IntToStr(j));
   //Вывод среднего арифметического чисел которые меньше предыдущих.
   ListBox1.Items.Add(FloatToStr(Sr_arif));

[northener]

Лично я не понимаю зачем вообще нужно было выводить результаты в TListBox?