exercicios algoritimo

Exercício 1
Var
Num_filhos: vetor[0..4] de inteiro;
Salario: vetor[0..] de real;
Media_salario: real;
Media_num_filhos: real;
Maior_salario: real;
Porcent_cem: real;
Aux,registro: inteiro;
Inicio
Repita limpatela registro←registro+1; escreva(!REGISTRO: “,registro); escreva(“N. DE FILHOS: “); leia(num_filhos[aux]); escreva(“Salario: “); leia(salario[aux]); media_salario←media_salario+salario[aux]; media_num_filhos←media_num_filhos+num_filhos[aux]; se maior_salario<salario[aux] então; se salario[aux] <=100 entao; porcent_cem←porcent_cem+1; fimse fimse escreva(“<1> Continuar / <0> Sair: “); leia[aux]; ate aux=o; fim repita media_salario←media_salario/registro; media_num_filhos←media_num_filhos/registro; limpatela; escreva(“A média do salário: “,media_salario); escreva(“A média do número de filhos: “,media_num_filhos); escreva(“Maior Salário: “,maior_salario:2:2); escreva(“Porcentual de pessoas que ganham ate 100,00”--,porcent_cem*100/registro:2:2,”%”); fim Exercício 2 var anos,alturaChico,aluraZe:real; inicio alturaChico=150; alturaZe=110; anos= 0; enquanto(alturaChico>alturaZe)faça alturaChico=alturaChico+2; alturaZe=alturaZe+3; anos = anos + 1; fim escreva(anos); fim

Exercício 3
Var
Media:real;
Valor,aux : inteiro;
Inicio
Repita aux←aux+1; escreva(“Digite um valor: “); leia(valor); media←media+valor; ate valor = -1; escreva(“A média aritmética é: “,media/aux); fimrepita fim

Exercicio 4 var inteiro: VOTO,NTOT,NCAND1,NCAND2,NCAND3,NCAND4,NBRANCO,NNULO; real: PERC; início NTOT ← 0;
NCAND1 ← 0;
NCAND2 ← 0;
NCAND3 ← 0;
NCAND4 ← 0;
NBRANCO ← 0;
NNULO ← 0; leia(VOTO); enquanto ( VOTO >= 1 ) faça
NTOT ← NTOT + 1; se (VOTO = 1) então
NCAND1 ← NCAND1 + 1; senão-se (VOTO = 2) então
NCAND2 ← NCAND2 + 1; senão-se (VOTO = 3) então
NCAND3 ← NCAND3 + 1; senão-se (VOTO = 4) então
NCAND4 ← NCAND4 + 1; senão-se (VOTO = 5) então
NNULO ← NNULO + 1; senão-se (VOTO = 6) então
NBRANCO ← NBRANCO + 1; senão NNULO ← NNULO + 1; {voto inválido} fim-se leia(VOTO);
fim-para