/* Esempio 3: somma di un array di interi */

writemsg "quanti numeri desideri sommare? ";
var quanti;
read quanti;
array numeri[100];

if (quanti <= 100 && quanti >= 0) {
  var i;
  for (i, 0, quanti - 1) {
    writemsg "numero di posizione ";
    write i + 1;
    writemsg "? ";
    read numeri[i];
  }
  var somma;
  somma = 0;
  for (i, 0, quanti - 1)
    somma = somma + numeri[i];

  writemsg "La somma dei numeri letti e' ";
  write somma;
  writeln;
} else {
  writemsg "Posso sommare al massimo 100 numeri!";
  writeln;
}