Question

Programa en Turbo Pascal que sume una lista de números ingresados por el usuario, ademas el usuario debe de ingresar el tamaño de su lista

Answer 1

procedure calculo_suma_numeros;
var
   num : integer;
   suma : word;
begin
     suma : = 0;
     while num <> 0 do
     begin
     write ( ' Entre Número a sumar, el (0) termina : ' )
     readln(num);
     if num <> 0 then
     suma : = suma + num;
     end;
     writeln;
     writeln ( ' La Suma de los números entrados es : ' , suma);
     writeln;
     writeln ( ' Pulse [Enter] ' );
     readln;
end;