constante N : entier <- 20
constante M : entier <- 8

{ Type agrege de stockage d'une position      }
  
structure position
    l : entier <- 0
    c : entier <- 0
fin structure

{ Methode de recherche la plus petite valeur  }
{ contenue dans une matrice de entier         }

entier fonction min(t)
  Données
    t : Tableau [N][M] de entier
  Locales
    min : 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

{ Methode de recherche des coordonnees        }
{ de la plus petite valeur                    }
{ contenue dans une matrice de entier         }
  
position fonction positionMin(t)
  Données
    t : Tableau [N][M] de entier
  Locales
    min : entier
    i : entier
    j : entier
    pMin : position
  min <- t[0][0]
  pour i de 0 à N-1 faire
    pour j de 0 à M-1 faire
      si t[i][j] < min alors
        pMin.l <- i
        pMin.c <- j
        min <- t[i][j]
      fsi
    fait
  fait
  retourner pMin
fin fonction

{ Methode de calcul de la somme des valeurs   }
{ contenues dans un tableau de entier         }

entier fonction sommeLigne(ligne)
  Données
    ligne : Tableau [M] de entier
  Locales
    somme : entier
    i : entier
  somme <- 0
  pour i de 0 à M-1 faire
    somme <- somme+ligne[i]
  fait
  retourner somme
fin fonction

{ Methode de calcul de l'indice de la ligne   }
{ de somme maximum des lignes                 }
{ contenues dans une matrice de entier        }

entier fonction ligneMax(t)
  Données
    t : Tableau [N][M] de entier
  Locales
    max : entier
    i : entier
    iMax : entier
    somme : entier
  max <- sommeLigne(t[0])
  iMax <- 0
  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