Problema con un Ejercicio de Promedio
Publicado por anonymous (6 intervenciones) el 14/09/2018 04:50:36
Tengo un problema con este programa y es que me pide sacar el promedio de una cantidad de números, pero con la condición de que solo se pueda dar valores que no pase de 10.
o por lo menos que no los tome en cuenta a lo hora de sacar promedio, a ver si hay una forma de programarlo que estoy un tanto estancado.
o por lo menos que no los tome en cuenta a lo hora de sacar promedio, a ver si hay una forma de programarlo que estoy un tanto estancado.
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
Program promedio_3;
uses
wincrt;
Var
Total, contador: integer;
Num, promedio : real;
Begin
clrscr;
Write ('Numeros de examenes a promediar: ');
Readln (Total);
Promedio:=0;
For contador:=1 to Total do
Begin
Write('Examen: ',contador,' : ');
Readln (Num);
Promedio := Promedio + Num / Total;
End;
Writeln('El Promedio es: ', promedio:9:3);
writeln('');
if num := 0 to 10 do
writeln('Las notas aparecidas que pasan de 10 son: ');
end.Valora esta pregunta
0