{ File: somma.pas } { Scopo: ciclo for con limiti fissi } program Somma100Numeri; { Legge 100 numeri e ne stampa la somma. } var numero : integer; { numero letto di volta in volta } somma : integer; { somma parziale degli interi letti fino ad un certo punto } i : integer; { indice del ciclo } begin writeln('Immettere 100 numeri interi!'); somma := 0; { prima di leggere il primo numero la somma parziale e` 0 } for i := 1 to 100 do begin read(numero); somma := somma + numero end; writeln('Somma : ', somma) end. { Somma100Numeri }