Pascal/Turbo Pascal - mediana de n notas

{Mira si esto te sirve}

 program media;

  uses

    wincrt;

  const

     n = 4;

    type

      medias = array[1..n] of real;

   var

     lamedia : medias;

     cont : integer;

    procedure entradas(var ss : medias);

    begin

       cont := 1;

     repeat

        write('  Nota Num. ',cont,' : ');

        readln(ss[cont]);

        cont := cont + 1;

    until cont > n;

  end;

  function lamediaes(dd : medias) : real;

  var

     total : real;

  begin

     cont := 1;

     total := 0.0;

   repeat

       total := total + dd[cont];

       cont := cont + 1;

   until cont > n;

   lamediaes := total / n;

   end;

   begin

      clrscr;

      entradas(lamedia);

      clrscr;

      writeln;

      writeln('  La Media Es = ',lamediaes(lamedia):0:2);

      readkey;

   end.