Foro de elhacker.net

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.
 

El problema que me surge es cuando declaro el array... me gustaría establecer el índice final a través del usuario...

¿Alguna ayudita?

En Pascal, si no me equivoco, no se puede establecer el tamaño dependiendo de una variable que el usuario inserte. (Que me corrijan si me equivoco).

Una posible solución sería declararte una constante con el número máximo de elementos del array, leer el tamaño que inserte el usuario, sí es superior muestras mensaje por pantalla diciendo que no es posible, sí es menor que la constante entonces haces las operaciones pertinentes.

Saludos.

Pues sí que se puede. Tienes que declarar tu array de esta manera:

var
matriz: array of integer;

Y para establecer el tamaño del array tienes que utilizar la función SetLength.

SetLength(matriz, 4);

De esta manera, matriz tendría 4 elementos. Usando SetLength siempre empieza en 0 el array. Puedes conocer donde empieza y donde acaba un array utilizando Low() y High().

Saludos.

Gracias por la corrección, no tenía ni idea de que sí que se podía.

Saludos.