Josemar Jobs
Número de Mensagens : 81 Idade : 35 Localização : Luanda-Angola Data de inscrição : 05/05/2008
| Assunto: Intervalos Qui maio 15, 2008 12:20 am | |
| Fazer um algoritmo/programa em Pascal que lê 20 valores, e conta quantos deles estão em cada um dos intervalos [0, 25], (25, 50], (50, 75], (75, 100],... bons xtudos,... | |
|
Giovanny Ritchie
Número de Mensagens : 95 Idade : 33 Localização : Luanda, Angola Data de inscrição : 05/05/2008
| Assunto: Re: Intervalos Dom maio 25, 2008 2:02 am | |
| - Código:
-
program contIntervalos; uses CRT; var count1,count2,count3,count4,numero,n,i: integer; begin writeln('Insira a Quantidade de NUmeros'); readkn(n); for i:=1 to n do begin readln(numero); if (numero>=0) and (numero<=25) then count1:=count1+1; end; if (numero>75) and (numero<=100) then count4:=count4+1; end; if (numero>25) and (numero<=50) then count2:=count2+1; end; if (numero>50) and (numero<=75) then count3:=count3+1; end; end; write(count1,count2,count3,count4); {Mostra as quantidades de elementos que cada elemento possui} readkeys; end.
Particularmente nao gosto muito de pascal, mas o Saber nao ocupa espaço. Fuiiiiiiiiiiiiiii | |
|