je recherche des exrecices sur les tableaux a deux dimention merci d'avance

Achètes un bouquin d'occasion sur pascal/turbo pascal, tu en avais pas mal chez sibex comme "initiation à pacal et turbo pascal", la plupart de ces bouquin fourmillent d'exemples sur les tableaux, les matrices et les arbres binaires.

merci

salut melle;
 
bon pour un premier temps on va se contenter d'ecrire
et de lire les données a partir d'une matrice
(tableaux a deux dimensions).
 
 
voila comment déclarer un tableau :
var T : array [1..10] of real;
 
Affecter une valeur à un élément de tableau :
T[1]:=0.0; T[i]:=T[j]+T[k];
 
Lire au clavier un tableau :
for i:=1 to 10 do read(T[i])
 
Afficher un tableau :
for i:=1 to 10 do write(T[i]:6); writeln
 
Somme des éléments d'un tableau :
S:=0.0;  
for i:=1 to 10 do S:=S+T[i]
 
 
Déclarer une matrice:
var M : array [1..10,1..20] of real;
 
Affecter une valeur à un élément de matrice :
M[1,1]:=0.0;
M[i,j]:=M[k,l]+M[s,t];
 
Lire au clavier une matrice:
for i:=1 to 10 do  
  for j:=1 to 20 do read(M[i,j]);
 
voici un programme complet concernant l'initialisation
d'un tableau a deux dimensions:
 
------------debut du code---------------
program InitialiserEtAfficherMatrice;
 var
 T: array[1..6, 1..6] of real;
         
 procedure afficher;  {afficher la matrice T}
  var
  k, l: integer;
     begin
 for k := 1 to 6 do  {afficher ligne à ligne}
  begin
    for l := 1 to 6 do {afficher les valeurs dans une ligne}
         write(T[k, l]);
  writeln;  
 end;
 end;
         
procedure initialiser; {initialiser à 0 la matrice T}
 var  i, j: integer;
 begin
  for i := 1 to 6 do  {parcourir ligne à ligne}
      for j := 1 to 6 do {parcourir la ligne}
  T[i, j] := 0.0
  end;
         
begin
  initialiser;
  afficher;
readln
 
{--------fin du code-----------}
end.

si tu cherche ce genre d'exo tu peus aller sur les moteurs de recherche tel teoma.com,aol.fr,google.fr et demander exercices turbo pascal