3. 50 cantidades de productos.

Lea 50 cantidades de productos, si la cantidad es inferior a 6 agreguela a la cola qpedir sino en qnivelado.
Calcule el promedio de cada cola y retorne el resultado. No olvides borrar dos de las cantidades en cada cola. Cada cola posee 60 posiciones.

Begin
Queue qpedir [60]
Queue qnivel[60]
prope = 0
npe = 0
proni = 0
nni = 0
cont = 1
While (cont < = 50) do
Read canti
If (canti < 6) then
enqueue (qpedir,canti)
prope = prope + canti
npe = npe + 1
Else
enqueue (qnivel, canti)
proni = proni + canti
nni = nni + 1
End if
cont = cont + 1
End while
prope = prope / npe
proni = proni / nni
While (cont < = 52) do
dequeue (qnivel)
dequeue (qpedir)
cont = cont + 1
End while
Return prope, proni
End

enqueue (qpedir,canti)
qpedir [tail [qpedir]] <– canti
if tail[qpedir] = length[qpedir] then
tail[qpedir] <– 1
else
tail[qpedir] <– tail[qpedir] + 1
end if

enqueue (qnivel,canti)
qnivel [tail [qnivel]] <– canti
if tail[qnivel] = length[qnivel] then
tail[qnivel] <– 1
else
tail[qnivel] <– tail[qnivel] + 1
end if

dequeue (qpedir)
x <– qpedir [head[qpedir]]
if head [qpedir] = length[qpedir] then
head[qpedir] <– 1
else
head[qpedir] <– head[qpedir] + 1
end if


dequeue (qnivel)
x <– qnivel[head[qnivel]]
if head [qnivel] = length[qnivel] then
head[qnivel] <– 1
else
head[qnivel] <– head[qnivel] + 1
end if