Programa que calcula el promedio de N valores dados

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
uses
 crt;type
 vector=array [1..100] of integer;
var
 arreglo:vector;
 cantidad,cont,suma:integer;begin
 ClrScr;
 Write('Cantidad de valores: ');Readln(cantidad);
 writeln;
 suma:=0; for cont:=1 to cantidad do
  begin
   Write('Valor ',cont,': ');Readln(arreglo[cont]);
  end;
  for cont:=1 to cantidad do
  begin
   suma:=suma+arreglo[cont];
  end;
 Write('promedio: ',suma/cantidad:0:2); ReadKey;
end.

Cantidad: 27

Valor 1: 67
Valor 2: 7
Valor 3: 6
Valor 4: 36
Valor 5: 33
Valor 6: 80
Valor 7: 76
Valor 8: 31
Valor 9: 11
Valor 10: 93
Valor 11: 37
Valor 12: 52
Valor 13: 49
Valor 14: 57
Valor 15: 12
Valor 16: 86
Valor 17: 43
Valor 18: 30
Valor 19: 74
Valor 20: 65
Valor 21: 39
Valor 22: 23
Valor 23: 43
Valor 24: 74
Valor 25: 36
Valor 26: 95
Valor 27: 92

Promedio: 49.8888888889

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

Si es lenguaje C <code lang="c">Código en C</code>
Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Programa que calcula el promedio de N valores dados

Deja un comentario