program vec1;
 
uses crt;
 
var
        i, k, promedio: integer;
        resul: real;
        matriz : array[1..[size=15pt]k[/size]] of integer;
BEGIN
  clrscr;
  writeln('Tu promedio.');
  writeln();
  writeln('Cuantas asignaturas tienes?'); readln(k);
  promedio := 0;
 
  for i:=1 to k do
 
    begin
    write('Nota ', i, ': '); readln(matriz[i]);
    promedio := promedio + matriz[i];
    end;//for
 
  clrscr;
  resul := promedio / k;
  write('Su promedio es de: ');
  write(resul:0:2);
  readkey;
END.
 

var
matriz: array of integer;

SetLength(matriz, 4);