PROCEDURA Leggi _ V ( VAL n : INT , REF v : ARRAY [ MAXDIM ] DI INT ) INIZIO i : INT /* 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 ) INIZIO i : INT /* 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