اگر کسی بتونه کمک کنه ممنون میشم :i=1;
total.input=total.valid=0;
sum=0;
Do While value[i]<>-999 AND total.input<100
increment total.input by 1;
If value[i] >= minimum AND value[i]<=maximum
Then increment total.valid by 1;
sum=sum+value[i];
Else skip
EndIf
increment i by 1
EndDo
If total.valid>0
Then average=sum/total.valid;
Else average =-999;
EndIf
End average
