Calcular promedio por acumulación
Publicado por Pedro (7 intervenciones) el 29/12/2014 16:53:06
Buenas, espero se encuentren bien, el día de hoy quisiera obtenerr un poco de ayuda en un ejercicio que me han enviaado en la universidad, el cual dice lo siguiente:
Dado “n” números que indique si cada uno de ellos es par o impar. Obtenga total de pares, impares, promedio de pares o impares, porcentaje de pares o impares.
Muy bien yo he realizado la parte de identificar los números pares e impares, y contar cuantos son de cada grupo, pero no logro sacar el promedio ni el porcentaje, ya que lo intento y me da como resultado "0", por lo que algo debo estar haciendo mal, alguien puede indicarme como calcular el promedio y el procentaje?, est es lo que he realizado:
Dado “n” números que indique si cada uno de ellos es par o impar. Obtenga total de pares, impares, promedio de pares o impares, porcentaje de pares o impares.
Muy bien yo he realizado la parte de identificar los números pares e impares, y contar cuantos son de cada grupo, pero no logro sacar el promedio ni el porcentaje, ya que lo intento y me da como resultado "0", por lo que algo debo estar haciendo mal, alguien puede indicarme como calcular el promedio y el procentaje?, est es lo que he realizado:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program ejercicio15;
uses crt;
var n,par,impar,i,numero:integer;
procedure introducirN;
begin
write('Intruzca N: ');
readln(n);
end;
procedure realizarCondiciones;
begin
i:=1;
par:=0;
impar:=0;
while (i<=n) do
begin
//Código que calcula los pares
write('Introduzca numero: ');
readln(numero);
if ((numero mod 2)=0) then
begin
numero:=par;
writeln(' - Numero par');
par:=par+1;
//FIN Código que calcula los pares
end
else
begin
//Código que calcula los impares
numero:=impar;
writeln(' - Numero impar');
impar:=impar+1;
//FIN Código que calcula los impares
end;
i:=i+1;
end;
end;
procedure mostrarTodo;
begin
writeln('El total de numeros pares es: ',par);
writeln('El promedio de numeros pares es: ');
writeln('El total de numeros impares es: ',impar);
writeln('El promedio de numeros impares es: ');
end;
begin
introducirN;
realizarCondiciones;
mostrarTodo;
readkey;
end.Valora esta pregunta
0