2. Salario Neto.

Lea el Vrhora de un trabajador. Calcule el valor del salario mensual, tenga en cuenta que si el salario es menor o igual a dos salarios mínimos tiene derecho a un auxilio de transporte en otro caso no. Calculado así el salario neto, agréguelo a Qneto.
Se leen 25 Vrhora, Qneto posee 30 posiciones, calcule el promedio de los salarios y retornelos.

Begin
queue qneto[30]
pros = 0
cont = 1
While (cont < = 25) do
Read vhora, nhora
sal = vhora * nhora
If (sal < = 980000) then
sal = sal + 55000
End if
enqueue (qneto,sal)
pros = pros + sal
cont = cont + 1
End while
pros = pros / 25
Return pros
End

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