как посчитать среднее арифметическое значение

[CraZZy RabbIt]

на форме есть мемо,в нем строчки с числами.всего чисел выводится от 60 до 600.нужно считать эти числа из мемо ,чтоб посчитать их среднее арифметическое.
вопрос - как это реализовать??

[Sazary]

Как пример. Числа вводятся в мемо через пробел.
Результат - в Edit.

Текст из мемо - в строку.
Идем до конца строки.
Пропускаем пробелы.
Пока не встретим пробел, читаем из строки в буфер.
Переводим строку из буфера в число и плюсуем к сумме, увеличивая счетчик.

procedure TForm1.Button1Click(Sender: TObject);
var
buf,s : string;
cnt,i,sum : integer;
sred : double;
begin
cnt := 0;
sum := 0;
i:=1;
s := Memo1.Text;
while i<=length(s) do
  begin
  while (s[i]=' ') and (i<=length(s)) do inc(i);
  buf := '';
  while (s[i]<>' ') and (i<=length(s)) do
   begin
   buf := buf + s[i];
   inc(i);
   end;
  inc(cnt);
  sum := sum + StrToInt(buf);
  end;
sred := sum/cnt;
Edit1.Text := FloatToStr(sred);
end;

[eskander]

var
  i, sum:integer;
begin
  sum:=0;
  for i:=0 to memo1.lines.count-1 do sum:=sum+strtoint(memo1.lines.strings[i]);
  showmessage(floattostr(sum/i+1));
end;

в мессадже среднее арифметическое

[Jeni]

Лучше писать не sum/i+1 а sum/memo1.lines.count

Чисто технически переменная цикла после окончания цикла считается неопределенной. Что реально в ней будет записано может сильно зависеть от оптимизации кода или от конкретного компилятора.

[eskander]

Jeni, конечно же согласен с вами, но задачи оптимизации кода или чего-то прочего не стояло, так что можно и экстремально попрограммировать )

[CraZZy RabbIt]

всем спасибо!!