ALGORITMO MAGGIORE
VAR
NUMERI[N], N, I, TEMP
BEGIN
PRINT “INSERIRE N”
IF N > 0
I := 0
WHILE I < = N
READ NUMERI [I]
I := I + 1
ENDWHILE
I := 0
TEMP := NUMERI [I]
WHILE I < N – 1
I := I + 1
IF TEMP < NUMERI [I]
TEMP := NUMERI [I]
ENDIF
ENDWHILE
PRINT TEMP
ELSE
PRINT “ERRORE” . N . “< 0”
ENDIF
END