1. Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando “maior de idade” e “menor de idade” para cada pessoa. Considere a idade a partir de 18 anos como maior de idade. programa idades; var idade, i : inteiro;

inicio para i  1 até 75 faça inicio escreva('Digite a idade: '); leia(idade); se (idade >= 18) então inicio escreva('Maior de idade.'); fim senão inicio escreva('Menor de idade.'); fim; fim; fim. 2. Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda. programa venda;

var pc, pv, dif, mpc, mpv, spc, spv: real; i : inteiro;

inicio spc  0; spv  0;

para i  1 até 40 faça inicio escreva('Preço de custo: '); leia(pc); escreva('Preço de venda: ');] leia(pv); dif  pv – pc;

se (dif > 0) então inicio escreva('Houve lucro na venda.'); fim senão se (dif < 0) então inicio escreva('Houve prejuízo na venda.'); fim senão inicio escreva('Houve empate na venda.'); fim; spc  spc + pc; spv  spv + pv; fim; mpc  spc / 40; mpv  spv / 40;

escreva('Média do preço de custo: ', mpc); escreva('Média do preço de venda: ', mpv); fim. 3. Escrever um algoritmo que lê 5 valores, e conta quantos destes valores são negativos, escrevendo esta informação. programa negativos; var n, nneg, i : inteiro;

inicio nneg  0;