Pascal 014 ► Llenar un arreglo y obtener el promedio

Ejercicio 014: Llenar un arreglo de números enteros desde el teclado y mostrar el promedio de esos valores.

Program Pascal_014;

uses crt;

var

    i, cont : integer;

    suma, promedio : real;

    Numeros : array[1..10] of integer;

Begin

    cont := 0;

    suma := 0.0;

    promedio := 0.0;

    for i:=1 to 10 do

    begin

        WriteLn('Ingresa valor');

        ReadLn(Numeros[i]);

        suma := suma + Numeros[i];

        cont := cont + 1;

    end;

    promedio := suma / cont;

    WriteLn('Promedio: ',promedio:0:2);

    ReadKey;

End.

El promedio se obtiene sumando todos los valores y dividiendo el resultado entre el número de valores que son, en este caso sabemos que son 10, aún así utilicé un contador para contabilizarlos y obtener el promedio, por lo que sería el mismo resultado si se dividiera la suma entre 10.