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 01/06/2015 02:38:47
necesito ayuda con este programa .
Calcular el promedio de 50 valores almacenados en un vector y que determine cuantos son mayores que el promedio y que imprima el promedio, el numero de datos mayores que el promedio y la lista de los que son mayores que el promedio
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 01/06/2015 15:25:40
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
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