Pascal/Turbo Pascal - calcular el promedio de 50 valores almacenados en un vector

   
Vista:

calcular el promedio de 50 valores almacenados en un vector

Publicado por deivid (9 intervenciones) el 12/07/2015 08:22:58
Por fabor nesecito ayuda con un programa.
calcular el promedio de 50 valores almacenados en un vector, determinar ademas cuantos son mayores que el primedio, que imprima el promedio y los numeros mayores al promedio en una lista
por fabor.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

calcular el promedio de 50 valores almacenados en un vector

Publicado por dario (41 intervenciones) el 12/07/2015 15:24:03
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
54
55
56
57
58
59
60
61
62
63
uses crt;
 
var
 
	num:array[1..50] of integer;
 
	i,s,mayor:integer;
 
	prom:real;
 
begin
 
	clrscr;
 
	randomize; {inicializa semilla para numeros aleatorios}
 
	s:=0; {se almacena la suma de los numeros}
 
	mayor:=0; {contador de numeros > que el promedio}
 
 
 
	for i:=1 to 50 do begin
 
		num[i]:=random(1000); {genera un numero aleatorio}
 
		s:=s + num[i]; {sumatoria de los 50 numeros}
 
	end;
 
 
 
	prom:=s/i; {promedio de los 50 numeros}
 
 
 
	writeln('Lista de numeros mayores que el promedio');
 
	for i:=1 to 50 do begin
 
		if num[i] > prom then begin {se comparan los numeros para saber
 
									si son mayores que el promedio}
 
			inc(mayor);
 
			write(num[i],' ');
 
		end;
 
	end;
 
 
 
	writeln;writeln;
 
	writeln('Hay ',mayor,' numeros mayores que el promedio');
 
	writeln;
 
	writeln('El promedio de los 50 numeros es ',prom:4:2);
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar