Best solution - 0.015.
How to improve?
I do not use array. Only 5 vars - (3 integer and 2 longint)
I use inc([longint], number) instead of [longint]:= [longint] + number;

Edited by author 07.02.2008 18:14

my solution is also 0.031 and I used same "vars" as you and no array. my algo if O(N). and what is most interesting, one time the result was 0.015! after it i send same solution. it was 0.031 again.

Edited by author 07.02.2008 18:15

I have 4 int vars, O(N) algo. I solved it 5 times already, and still (0.031,108). Useless.