Extraire pairs/impairs

noscript{display:block;font-family:sans-serif;max-width:860px;margin:2rem auto;padding:1rem}pre{background:#090040;color:#ff9a00;padding:1rem;border-radius:8px;overflow:auto}Extraire pairs/impairsCette procédure extrait à partir d'un tableau T les éléments pairs dans Tp et impairs dans Timp.PseudocodeProcédure extraire(t,@TP,@Timp:tab; n,@j,@k:entier) Début j ← 0, k ← 0 Pour i de 0 à n-1 faire Si(t[i] mod 2 = 0) alors Tp[j] ← t[i], j ← j+1 Sinon Timp[k] ← t[i] k ← k+1 Finsi Fin pour Fin