{ File: massimor.pas } { Scopo: ciclo for con limiti fissi } program MassimoNumeriReali; { Legge N numeri reali da tastiera e ne stampa il massimo. } const N = 10; var numero : real; { numero letto di volta in volta } massimo : real; { massimo parziale dei reali letti fino ad un certo punto } i : integer; { indice del ciclo } begin writeln('Immettere 10 numeri reali!'); read(numero); massimo := numero; { il massimo parziale e` dato dal primo numero } for i := 1 to N-1 do begin read(numero); if numero > massimo then massimo := numero { non c'e` il ramo else } end; writeln('Massimo : ', massimo) end. { MassimoNumeriReali }