{ Action de calcul de la somme de deux        }
{ matrices d'entiers de tailles compatibles   }
{ m1 : La première matrice à sommer           }
{ m2 : La seconde matrice à sommer            }
{ ms : La matrice résultat                    }
  
action somme(-> entier [][] m1,
             -> entier [][] m2,
             entier [][] ms ->)
  entier i,j
  pour i de 0 à longueur(1,m1)-1 faire
    pour j de 0 à longueur(2,m1)-1 faire
      ms[i][j] <- m1[i][j]+m2[i][j]
    fait
  fait
finAction

{ Fonction de calcul et retour                }
{ de la somme de 2 matrices d'entiers         }
{ de tailles compatibles                      }
{ m1 : La première matrice à sommer           }
{ m2 : La seconde matrice à sommer            }
  
entier [][] somme(-> entier [][] m1,
                  -> entier [][] m2)
  entier [longueur(1,m1)][longueur(2,m1)] ms
  somme(m1,m2,ms)
  retourner ms
finFonction