PROCEDURA Leggi _ V( VAL n: INT, REF v: ARRAY [ MAXDIM ] DI INT) i: INT INIZIO /* Leggo e controllo i valori dell’ array */ PER i � 1 A n ESEGUI
RIPETI Scrivi(" Inserisci l’ elemento del vettore: ") Leggi( v [ i ]) SE( v [ i ] ≤ 0)
ALLORA
FINE SE FINCHE’( v [ i ] > 0)
i � i + 1 FINE PER RITORNA FINE
USO DEI SOTTOPROGRAMMI Caricamento e visualizzazione di un ARRAY numerico
PROCEDURA Leggi _ V( VAL n: INT, REF v: ARRAY [ MAXDIM ] DI INT) i: INT INIZIO /* Leggo e controllo i valori dell’ array */ PER i � 1 A n ESEGUI
RIPETI Scrivi(" Inserisci l’ elemento del vettore: ") Leggi( v [ i ]) SE( v [ i ] ≤ 0)
ALLORA
Scrivi(" ERRORE: l’ elemendo dell’ array deve essere strettamente positivo!")
FINE SE FINCHE’( v [ i ] > 0)
i � i + 1 FINE PER RITORNA FINE