{ File: sompone.pas } { Scopo: ciclo for } program ContaNumeri (input, output); { Legge una sequenza di numeri interi di lunghezza letta da tastiera. Stampa la somma dei numeri positivi e la somma dei numeri negativi. } var i, { indice di ciclo } n, { lunghezza della sequenza } numero, { numero letto di volta in volta } somma_pos, somma_neg : integer; { somme parziali degli interi positivi e negativi letti fino ad un certo punto } begin writeln('Immettere la lunghezza della sequenza di numeri interi!'); readln(n); writeln('Immettere ', lung, ' numeri interi, uno per riga!'); somma_pos := 0; { prima di leggere il primo numero la somma parziale dei numeri positivi e` 0 } somma_neg := 0; { prima di leggere il primo numero la somma parziale dei numeri negativi e` 0 } i := 1; while i <= n do begin readln(numero); if numero >= 0 then somma_pos := somma_pos + numero else somma_neg := somma_neg + numero; i := i+1 end; writeln('Somma dei positivi: ', somma_pos); writeln('Somma dei negativi: ', somma_neg) end. { ContaNumeri }