Filling 3D-Array with for loop in R (by rows and for each table)

Question

Data: fkt.P=function.......( I think it is unimportant for this question)

P_seq=seq(0,300,10) 
L_seq=seq(0,200,10) 

res=array(c(0,0), dim=c(length(P_seq),7,l