Exercícios

{1) Fazer um programa que leia um conjunto de números inteiros até que seja digitadozero. Mostrar quantos números foram digitados.}

{2) Fazer um programa que leia um conjunto de números inteiros até que seja digitadozero. Mostrar o maior e o menor número digitados.}

{3) Fazer um programa que leia um conjunto de números inteiros até que seja digitadozero. Mostrar quantos números foram digitados nos intervalos abaixo:

- negativos- de 1 a 20- de 21 a 40- acima de 40}

{4) Fazer um programa que leia um conjunto de números inteiros até que seja digitadozero. Mostrar a soma e a média dos números.}

Respostas

1)Program contador ;var

num, cont: integer;

Beginwriteln('Digite um número ou zero para sair');read(num);while num <> 0 do

begincont:= cont + 1;writeln('Digite um número ou zero para sair');read(num);

end; writeln;writeln('Foram digitados: ', cont, ' númoros.');

End.

2)Program maior_menor ;var

num, maior, menor: integer;

Beginwriteln('Digite um número ou zero para sair');read(num);maior:= num;menor:= num;while num <> 0 do

beginif num > maior then

maior:= numelse

if num < menor thenmenor:= num;

writeln('Digite um número ou zero para sair');read(num);

end; writeln;writeln('O maior digitado foi: ', maior);writeln('O menor digitado foi: ', menor);

End.

3)Program intervalos ;var

num, negat, de1_a_20, de21_a_40, acima40: integer;

Beginwriteln('Digite um número ou zero para sair');read(num);negat:= 0;de1_a_20:= 0; de21_a_40:= 0; acima40:= 0;while num <> 0 do

beginif num < 0 then negat:= negat + 1else

if num <= 20 then de1_a_20:= de1_a_20 + 1else

if num <= 40 then de21_a_40:= de21_a_40 + 1else acima40:= acima40 + 1;

writeln('Digite um número ou zero para sair');read(num);

end; writeln;writeln('Foram digitados: ');writeln('Negativos..: ', negat);writeln('De 1 a 20: ', de1_a_20);writeln('De 21 a 40: ', de21_a_40);writeln('Acima de 40: ', acima40);

End.

4)Program media ;var

num, cont, soma: integer;med: real;

Beginwriteln('Digite um número ou zero para sair');read(num);cont:=0;soma:=0;while num <> 0 do

begincont:= cont + 1;soma:= soma + num;writeln('Digite um número ou zero para sair');read(num);

end;

writeln;med:= soma/cont;writeln('mÉdia: ', med:4:2, '. Soma:', soma);

End.