Trouble with this programm. Please help!

[DrD]

The problem is the way you pass in the LIST (L1): Lists can't be used as inputs in the case.

Pre-define your list L1 then run this code:

Code:


EXPORT PARAL()  // Removed reference to L1
BEGIN
LOCAL T;
LOCAL I;
LOCAL N;
T:=0;
I:=0;
N:=SIZE(L1);

FOR I FROM 1 TO N DO
T:=T+1/L1(I);
END;

T:=1/T;
RETURN(T);
END;