// On imagine qu'on dispose de la fonction Alea() qui  renvoie une valeur entre 0 et 1
constante entier TAILLE <-- 6

procedure genere(S v: vecteur de TAILLE reel) 
{
	variable i : entier
	Pour i de 0 à TAILLE - 1
	{
		v[i] <-- Alea()*9+1
	}
}

procedure affiche(E v: vecteur de TAILLE reel) 
{
	variable i : entier
	Pour i de 0 à TAILLE - 1
	{
		Afficher("v[",i,"]=",v[i],".\n")
	}
}
fonction PlusPetit(E v: vecteur de TAILLE reel):entier 
{
	variable i : entier
	         pp : reel

	pp <-- v[0]
	Pour i de 1 à TAILLE - 1
	{
		Si (pp > v[i]) alors
		{
			pp <-- v[i]
		}
	}
	retourne PartieEntiere(pp)
}

/*******************************
En C++ pour récupréer la partie entière
float f;
int a;
f = 12.3;
a = f; // a contient 12
******************************/

procedure multiplication(E vin: vecteur de TAILLE reel, S vout: vecteur de TAILLE reel, E multiplicateur : entier) 
{
	variable i : entier
	Pour i de 0 à TAILLE - 1
	{
		vout[i] <-- vin[i]*multiplicateur
	}
}


Algorithme Soutien
{
	variable v1, v2 : vecteur de TAILLE reel
			 m : entier
	genere(v1)
	affiche(v1)
	m <-- pluspetit(v1)
	multiplication(v1, v2, m)
	affiche(v2)
}