[PASCAL] Ordinamento dati di un vettore

[multififa]

Ho dei numeri memorizzati in un vettore.
vorrei sapere quali sono i primi due numeri piu grandi per poi memorizzarli in due variabili (primo, secondo);
Chi mi da una mano...

[multififa]

[Visionario]

Assumi il primo come il più piccolo.

confrontalo di volta in volta con gli altri numeri e quando ne trovi uno più piccolo lo assumi come valore in assoluto più piccolo.

alla fine di tutti i confronti ti troverai con la variabile primo che ha come valore il numero + piccolo.

Fai la stessa cosa di nuovo escludendo il numero contenuto nella variabile primo e otterrai il secondo numero + piccolo che assegnerai alla variabile secondo.

Esempio di algoritmo da tradurre in pascal (la sintassi non la ricordo + ):

vettore [10];

primo := vettore[0];

for i := 1 to 10
if primo > vettore[i] then primo := vettore[i];
next

if primo <> vettore[0] then secondo := vettore[0] else secondo := vettore[1]; //questo serve per inizializzare la variabile secondo controllando che non coincida al numero contenuto nella variabile primo

for i := 1 to 10
if vettore[i] <> primo then
if secondo > vettore[i] then secondo := vettore[i];
end if
next


Prova così