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

{-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.