Pascal/Turbo Pascal - Escribir un programa que solicite 15 números, los almacene en un arreglo y calcule el promedio

   
Vista:

Escribir un programa que solicite 15 números, los almacene en un arreglo y calcule el promedio

Publicado por Manuel (10 intervenciones) el 20/07/2017 21:58:09
Ayuda amigos
Alguien sabe como hacer este ejercicio ?

.Escribir un programa en Pascal que solicite 15 números, los almacene en un arreglo y luego calcule la media aritmética (promedio) de esos números.



Saludos y gracias de antemano
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

Escribir un programa que solicite 15 números, los almacene en un arreglo y calcule el promedio

Publicado por dario alderaan@ec-red.com (38 intervenciones) el 22/07/2017 07:49:58
Espero te sirva.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
	num:array[1..15] of integer;
	suma,i:integer;
	promedio:real;
begin
	clrscr;
	suma:=0;
	promedio:=0;
 
	//Ingreso de datos al arreglo
	for i:=1 to 15 do begin
		write('Ingrese # ',i,': ');
		readln(num[i]);
		suma:=suma+num[i];
	end;
 
	promedio:=suma/15;
 
	writeln('El promedio de los 15 numeros es: ',promedio:5: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
Revisar política de publicidad