[volery]

А визуальной случайно нету? Или вот как здесь зделать так что бы делил сумму на количество элементов?

Код:

Var Sum,A,i:integer;
begin
  Sum:=0;
  for i:=0 to ListBox1.Items.Count-1 do
    begin
      A:=StrToInt(ListBox1.Items[1]);
      Sum:=Sum+A
      end;
      ShowMessage('Sum is '+IntToStr(Sum));
end;

Admin: Пользуемся тегами!