{ 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 }