|
Pues algo así:
PROGRAM SumaNumeros;
VAR cantidad,i:BYTE;
numeros:ARRAY[LOW(BYTE)..HIGH(BYTE)] OF INTEGER;
suma:LONGINT;
BEGIN
suma:=0;
WRITE('Dime cuántos números vas a escribir: ');
READLN(cantidad);
FOR i:=1 TO cantidad DO
BEGIN
WRITE('Dime el número ',i,': ');
READLN(numeros);
suma:=suma+numeros;
END;
WRITELN('La suma de los números que has escrito es ',suma);
WRITELN;
WRITELN('Pulse una tecla para finalizar...');
REPEAT UNTIL KeyPressed;
END;
Algo así ;)
Utilizamos 1 array de Enteros. EN el temario que os habr´n dado os lo explicarán. Es como una "tira" de cajoncidos del tipo que sea, en este caso enteros.
|
