c:/gdsf/web/fuentes_pascal/ARRAY1.PAS

PROGRAM EJER87;

{ Escribir un programa en Pascal que solicite cinco n�meros, los almacene en un ARRAY
y luego calcule la media aritmtica de esos nmeros.}
USES CRT;
VAR arr_num : ARRAY [1..5] OF
REAL;
VAR i, num : INTEGER;
VAR media : REAL;
BEGIN
CLRSCR;
WRITELN ('Escriba 5 numeros para hacer su media aritmetica: ');
FOR i := 1 TO 5 DO
      BEGIN
      READLN (num);
      arr_num [i] := num;
      END;
FOR i := 1 TO 5 DO
      media := media + arr_num [i];
media := media / i;
WRITELN ('La media aritmetica es: ', media : 5 : 2);
END.