function recherche (var x : integer, var n : integer, var t : array of integer) : integer; var i : integer; var b : boolean; begin i := 0; b := i < n; while b do if t[i] = x then b := false else begin i := i+1; b := i < n end; if i < n then recherche := t[i] else recherche := -1 end; |