Programmation Maple

[invite12ca47cf]

Bonjour à tous!

J'ai fait deux programmes en Maple et je voulais savoir s'ils sont correctes car je suis débutante. J'ai une liste L de nombres et je dois écrire un programme en Maple permettant de calculer le nombre d'éléments de la liste strictement inférieurs à 20. J'ai fait :
L:= [1,3,25,4,15]:
S:=0:
for i from 1 to nops (L) do
if i<20 then
S:= L[i]+S
od:
S;
fi;

Et un autre qui permet de calculer le produit des nombres divisibles par 6 dans L :

L:= [24,5,14,21]:
P:=0:
for i from 12 to nops (L) do
mais après je n'arrive pas à trouver la condition.Je continue de réfléchir là-dessus. Merci d'avance pour vos indications!
-----

[phryte]

select(x->x<20,L);

[darig]

si tu veux le nombre d'éléments inférieurs a 20:
S:=0;
for i from 1 to nops(L) do
if op(i,L)<20 then S:=S+1; else S:=S; end if; end do;
j'espère que ca t'aidera