Pazcal

EXERCÍCIOS

1. Escrever um algoritmo que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação.

Program contavalores;
Var
i,numero,conta,contb: integer; Begin conta:=0; contb:=0; for i:= 1 to 5 do Begin Writeln('Entre com um número'); Readln(numero); if (numero<0) then conta:=conta+1 end; Writeln('São negativos:', conta); End.

2. A prefeitura de uma cidade fez uma pesquisa entre seus habitantes, coletando dados sobre o salário e número de filhos. A prefeitura deseja saber:
a) média do salário da população;
b) média do número de filhos;
c) maior salário;
d) percentual de pessoas com salário até R$100,00.
O final da leitura de dados se dará com a entrada de um salário negativo. (Use o comando ENQUANTO-FAÇA)

Program pesquisa;
Program Pzim ;
Var
salario,soma,somafilho,maior,sal: real; filhos,c:integer; resp:char;

Begin c:=0; soma:=0; somafilho:=0; maior:=salario; sal:=0; while resp <> 'N' do Begin Writeln('Entre com salário'); Readln(salario); Writeln('Entre com o número de filhos'); readln(filhos); soma:=soma+salario; somafilho:=somafilho+filhos; c:=c+1; if salario > maior then maior:=salario; if salario > 100 then sal:=sal+1; Writeln('Deseja continuar: S para sim e N para não'); readln(resp); end; Writeln('A média de salário é:', soma/c); Writeln('A média de filhos é:', somafilho/c); Writeln('O maior salário é:', maior); writeln('Números de pessoas que recebem salários acima de R$100,00:',sal); End.
3. Construir um algoritmo que calcule a média aritmética de vários valores inteiros positivos, lidos externamente. O final da leitura acontecerá quando for lido um valor negativo.

Program medianum ;
Var
numero:integer; ac,cont:real; Begin ac:=0; cont:=0; while numero > 0 do Begin Writeln('Entre com com o número inteiro'); Readln(numero);