{ File: massimo.pas } { Scopo: ciclo for con limiti fissi } program Massimo10Interi; { Legge 10 numeri interi da tastiera e ne stampa il massimo. } var numero : integer; { numero letto di volta in volta } massimo : integer; { massimo parziale degli interi letti fino ad un certo punto } i : integer; { indice del ciclo } begin writeln('Immettere 10 numeri interi!'); massimo := -MAXINT; { prima di leggere il primo numero il massimo parziale e` il piu` piccolo intero possibile; dopo la lettura del primo numero verra` aggiornato } for i := 1 to 10 do begin read(numero); if numero > massimo then massimo := numero { non c'e` il ramo else } end; writeln('Massimo : ', massimo) end. { Massimo10Interi }