Algorithme Matrice ;
Var I,J,N,M,Jmin,Jmax,X :entier ;
A : Tableau[1..20,1..30] de entier; Som : Tableau[1..30] de entie Début
Repeter Lire(N) ; Jusqu’à (N>0) et (N≤20) ;
Repeter Lire(M) ; Jusqu’à (M>0) et (M≤30) ;
//Lecture de la Matrice
Pour I ←1 à N Faire Pour J ←1 à M Faire Lire(A[I,J]) ; Fait ; Fait ;
//calcul et save de la somme de chaque col
Pour J ←1 à M
Faire Som[J]←0 ;
Pour I ←1 à N
Faire
Fait ;
Fait ;
Som[J]← Som[J]+ A[I,J];
Pour J ←1 à M Faire Ecrire(Som[J]) Fait ; Jmin← Som[1] ; Jmax← Som[1] ;
Pour J ←1 à M
Faire Si Som[Jmax] < Som[J] Alors Jmax←J Fsi ;
Si Som[Jmin] > Som[J] Alors Jmin←J Fsi ;
Fait ;
Ecrire(‘Position Jmin=’,Jmin,’ Jmax=’,Jmax) ;
Si Jmin>Jmax
Alors Pour I ←1 à N
Faire X← A[I,Jmin]; A[I,Jmin]← A[I,Jmax]; A[I,Jmax]←X Fait;
//affichage
Pour I ←1 à N Faire Pour J ←1 à M Faire Ecrire(A[I,J]) ; Fait ; Fait ;
Fsi;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.