{ Type agrege de stockage d'une position 2D   }
{ a coordonnees entières                      }
  
structure position
  entier l <- 0
  entier c <- 0
fin structure

{ Fonction de recherche et retour             }
{ de la plus petite valeur contenue           }
{ dans une matrice d'entiers                  }
{ t : Le tableau d'entiers où faire           }
{     la recherche                            }

entier fonction min(-> entier[][] t)
  entier n <- longueur(1,t)
  entier m <- longueur(2,t)
  entier i
  entier j
  entier min <- t[0][0]
  pour i de 0 à n-1 faire
    pour j de 0 à m-1 faire
      si t[i][j] < min alors
        min <- t[i][j]
      fsi
    fait
  fait
  retourner min
fin fonction

{ Fonction de recherche et retour             }
{ des coordonnees de la plus petite valeur    }
{ contenue dans une matrice d'entiers         }
{ t : La matrice d'entiers où faire           }
{     la recherche                            }
  
position fonction positionMin(-> entier [][] t)
  entier n <- longueur(1,t)
  entier m <- longueur(2,t)
  entier i
  entier j
  position pMin
  pour i de 0 à n-1 faire
    pour j de 0 à m-1 faire
      si t[i][j] < t[pMin.l][pMin.c] alors
        pMin.l <- i
        pMin.c <- j
      fsi
    fait
  fait
  retourner pMin
fin fonction

{ Fonction de calcul et retour                }
{ de la somme des valeurs contenues           }
{ dans un tableau d'entiers                   }
{ ligne : Le tableau d'entiers traité         }

entier fonction sommeLigne(-> entier [] ligne)
  entier m <- longueur(ligne)
  entier i
  entier somme <- 0
  pour i de 0 à m-1 faire
    somme <- somme+ligne[i]
  fait
  retourner somme
fin fonction

{ Fonction de calcul et retour                }
{ de l'indice de la ligne de somme maximum    }
{ des lignes contenues                        }
{ dans une matrice d'entiers                  }
{ t : Le tableau d'entiers traité             }

entier fonction ligneMax(-> entier [][] t)
  entier n <- longueur(1,t)
  entier i
  entier iMax <- 0
  entier somme <- sommeLigne(t[0])
  entier max <- somme
  pour i de 1 à n-1 faire
    somme <- sommeLigne(t[i])
    si somme > max alors
      iMax <- i
      max <- somme
    fsi
  fait
  retourner iMax
fin fonction