Array Maxlist

[andypap 10]

hi

 

i have two questions about arrays :

 

1: how can i populate an array like

 

myarr[10](0) ;

 

untill a certain condition is true...

if arr[n] element falls out of the condition true statment then

arr[n] and all the array elements>n should be populated with a zero value..

 

example

 

cond = c > average (c,50) ;

value1 = highestfc(h,mylen) /// mylen is a counter that increments by 1 once cond = true///

 

if h > h[1] then begin

for ii = 10 down to 1 begin

myarr[ii] = myarr[ii-1];

end;

myarr[ii] = value1 ;

end;

 

note that this array will hold 10 elements

if from the 5 element down to the 10 element the c < average (c,50) then

all this elements should hold a value of zero....

 

2 : once the array is populated then

how can i get the maxlist off all the elements stored in the array ?

 

regards

[statsign 10]

if cond then begin
       for ii = 1 to 10 begin 
            if    myarr[ii]  <  average (c,50) then begin
                  Array_SetValRange(myarr, ii, 10, 0);
                    ii =10;
            end;
        end;
end;

[statsign 10]

value33 = 0;
value44 = 0;
   for ii = 1 to 9 begin 
        if  myarr[ii + 1]  <  myarr[ii] then value33 = myarr[ii];
        if value44 < value33 then value44 = value33;
   end;
value44 = iff(value44 < myarr[10] ,myarr[10],value44);