ALGORTIMO MEDIA
VAR
NUMERI[N], N, I, MEDIA
BEGIN
PRINT “INSERIRE N”
READ N
IF N > 0
I := 0
WHILE I < = N
READ NUMERI[I]
I := I + 1
ENDWHILE
I := 0
MEDIA := 0
WHILE I < N
MEDIA := MEDIA + NUMERI[I]
I := I + 1
ENDWHILE
MEDIA := MEDIA / N
PRINT “LA MEDIA E’” . MEDIA
ELSE
PRINT “ERRORE” . N . “< 0”
ENDIF
END