Voilà j'avais un devoir à rendre pour demain. La prof a demandé de rechercher un élément sur une ligne : linéaire :
 
 
program recherchex;
const n=3;
var v: array[1..n] of integer;
    x,i:integer;
    trouve:boolean;
begin
  for i:=1 to n do
    begin
      v[i]:=i;
    end;
  writeln('Introduire x');
  readln(x);
  trouve:=false;
  i:=1;
  while (i<=n) AND (trouve=false) do
      if v[i]=x then trouve:=true;
      i:=i+1;
    end;
  if trouve=true then writeln('x apparitent au tableau')
  else writeln('x n'appartient pas au tableau');
end.
 
 
Est-ce correct ?  
Si oui, la prof me demande ensuite de retrouver : Rechercher un élément y dans un tableau de n x m éléments entiers.
Là dessus je suis coincé, donc je viens vous voir pour m'aider, car je n'y arrive pas de ce fait j'ai contacté un ami, il n'y arrive pas non plus. Merci de votre aide
 

Il manque un begin après
"while (i<=n) AND (trouve=false) do"  
 
pour le tableau  il faut le créer à deux dimensions, avec deux variables i et j pour le parcourir, une pour les lignes une pour les colonnes.
pour la déclaration :
var MonTableau: array [1..n] of array[1..n] of integer;
pour l'accès : MonTableau[i,j]