{ File: contamag.pas } { scopo: cicli indefiniti } program ContaMaggiore; { Legge da tastiera una sequenza di 10 numeri interi e calcola quante volte un numero e' maggiore del precedente. } const N = 10; var cont, { contatore dei numeri maggiori del precedente } numero, { numero letto di volta in volta } prec, { numero letto precedentemente } i : integer; { contatore del numero di iterazioni } begin writeln('Inserire 10 numeri interi'); readln(prec); cont := 0; for i := 2 to N do begin readln(numero); if numero > prec then cont := cont + 1; prec := numero end; writeln('contatore = ', cont) end. { ContaMaggiore }