ALGORITMO PERCENTUAL SALARIO

Programa salario;
var
soma <- real (999v99), <- 0;
salario <- real (999v99), <- 0;
media_sala <- real (999v99), <- 0;
menor_sala <- real (999v99), <- 0, <- 999v99
I <- inter (2);
pm <- real (999v99);

tipo v <-vetor [1:12] inter (2);

inicio
para I variando de 1 ate 12
faca
escreva " digite seu salario" salario;
leia ( salario);
V{I} <- salario;
soma <- soma+ salario; ou V[I];
se salario < menor_sala
entao
menor_sala <- salario;
PM <- I;
fim_se;
fim_para;
media_sala <- soma /5;

imprima " A sua media salarial foi :" , media_sala;
imprima " A posicao do vetor onde esta a menor salario:" , PM;

FIM.