не могу правильно записать ф-мулу для задачи с массивами на delphy 7

[alves]

Задача такая: В линейном массиве действительных чисел подсчитать среднее арифметическое положительных элементов массива.

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const n=3000;
var a:array [1..n] of integer;
i,k,s:integer;
b:real;
begin
for i:=1 to n do
begin
if a[i]>0 then k:=k+1;
if a[i]>0 then s:=s+a[i];
b:=s/k;
edit2.Text:=floattostr(b);
end;
end;
end.

s - сумма элементов,a[i] - итый элемент массива,k - количество положительных элементов.Незнаю как задать для n(верхняя граница массива) плюс бесконечность и не получается записать формулу,вычисляющую среднее арифметическое положительных элементов.И я вообще как то сомневаюсь,что выше написанное это правильно. Кто может - помогите плиз, буду очень благодарен.

[Anatole]

В принципе вы делаете почти правильно. Вот небольшая правка вашего кода

procedure TForm1.Button1Click(Sender: TObject);
const n=3000;
var a:array [1..n] of integer;
i,k,s:integer;
b:real;
begin
S:=0;
k:=0;
for i:=1 to n do
if a[i]>0 then 
 begin 
  k:=k+1; 
  s:=s+a[i];
end;
b:=s/k
edit2.Text:=floattostr(b);
end;

[alves]

В form1 я создал edit1, button1 и edit2.Массив,как я понял, вводится так - в edit1 я пишу числа через пробел,например 1 2 3. Нажимаю вычислить и в edit2 выводятся ответ. Но почему то он всегда неправильный,например - 1210450,48501362;-1376315,56906077 и т. д. Среднее арифметическое 1 2 3 будет 2. Вобщем программа работает неправильно. Анатолий, можете еще раз поискать ошибку?

[Chudo4258]

Вот можно так сделать:

procedure TForm1.Button1Click(Sender: TObject);
var st, stt: string;
    S,i:integer;
    A: array[1..3000] of integer;
    Sr:real;
begin
S:=0;
InputQuery('Количество элементов в массиве','',st);
for i:=1 to StrToInt(St) do
 begin
  InputQuery('Значение '+IntToStr(i)+' элемента','',stt);
  A[i]:=StrToInt(stt);
  S:=S+A[i];
  Memo1.Lines.Add('A['+IntToStr(i)+']='+stt);
 end;
Memo1.Lines.Add('Сумма='+IntToStr(S));
Memo1.Lines.Add('Среднее арфим.='+FloatToStr(S/StrToInt(St)));
end;

[Anatole]

alves
В вашем варианте предварительно необходимо віделить числа из строки в edit1.text и записать их в массив a. Но вам лучше пока воспользоваться вариантом предложеным Chudo4258

[alves]

огромнейшое вам спасибо!!!