Problem with 'Mean' function? 1

[corsair2]

I have the following piece of code which throws up the error 'Missing operator or semicolon'. The cursor is placed at the start of the 'ExArray' within the brackets.
Any ideas?

var
ExArray: array[1..100] of double;
i: integer;
begin
Randomize;
for i:=1 to 100 do
begin
ExArray:=(Random-Random)*100;
end;
Mean(ExArray);

 

[LucieLastic]

hi

Think you may be missing your result variable for the Mean function.

var
ExArray: array[1..100] of double;
i: integer;
answer : extended;
begin
Randomize;
for i:=1 to 100 do
begin
ExArray:=(Random-Random)*100;
end;
answer := Mean(ExArray);
:

 

[corsair2]

Thanks for the prompt response!
However, having edited the code with your suggestion the error is still there.
This really has me beat!

Regards

Steve

 

[LucieLastic]

hi

Just done a quick app and this worked for me (added Math to the uses):-

procedure TForm1.Button1Click(Sender: TObject);
var
ExArray: array[1..100] of double;
i: integer;
answer : extended;
begin
Randomize;
for i:=1 to 100 do
begin
ExArray:=(Random-Random)*100;
end;
answer := Mean(ExArray);
label1.Caption := floattostr(answer);
end;


You are missing an 'end' on the end but I thought you may have more code afterwards.

 

[corsair2]

Thanks Lucie

have copied your code to my form and it works fine!
Think I'll just have to put this one down to experience...
Strange thing is, the original works fine with MeanAndStdDev function!

Regards

Steve

 

[LucieLastic]

hi

Glad you've sorted it. Funny thing is I copied your code from here and just put it in the event and added the 2 lines on the bottom.

All the best
lou