Les tableaux

 

1 Trouver l’élément maximal d’un tableau et sa place (son indice)

 

Program Maximum;

Const Nmax = 10;

Type

 Tableau = Array[1..Nmax] Of Real;

Var

  A : Tableau;

  max : Real;

  N,i,imax : integer;

Begin

 Repeat

   Write('Entrez N: '); Readln(N);

 Until (N>0) And (N<=Nmax);

 For i:=1 To N Do Begin

  Write('Entrez A[',i,']: ');

  Readln(A[i]);

 End;

 max:=A[1]; imax:=1;{Initialisation}

 For i:=1 To N Do

  If A[i,j]  > max Then

  Begin

    max := A[i];imax:=i;

  End;

 Writeln('Le max. est =',max:10:3,

  ' et l'indice est ',imax);

End.

 

Exercices: Modifier le programme pour

1. Calculation du minimum.

 2. Calculation de la distance entre l'élément minimal et l'élément maximal.

 

2. Calculer la moyenne des éléments positifs d'une matrice avec M lignes et N colonnes.

Program Maximum;

Const Nmax = 10;

Type

 Tableau = Array[1..Nmax] Of Real;

 Matrice = Array[1..Nmax] of              Tableau

Var

  A : Matrice;

  s : Real;

  N,M,i,j,c : integer;

Begin

 Repeat

   Write('Entrez M,N: '); Readln(M,N);

 Until (N>0) And (N<=Nmax)and

       (M>0) and (M<=NMax);

Write('Entrez A');

 For i:=1 To M Do Begin

  For j:=1 To N Do Read(A[i,j];

  Readln;

 End;

 s:=0; c:=0;{Initialisation}

 For i:=1 To M Do

  For j:=1 To N Do

  If A[i]  >0 Then

  Begin

    s :=s+A[i,j];c:=c+1;

  End;

 Writeln('La moyenne est =',s/c:10:3);

End

Exercices: 1. Calculer le produit des éléments negatifs.

 2. Calculer les éléments d'une nouvelle matrice B oú bij est égal à la somme des éléments voisins de aij.

3. Calculer la somme des éléments d'une matrice carrée qui se trouve au dessous du diagonal principal.

 

Une amélioration de l’algorithme

Exercices: Calculer la moiyennes des éléments qui se trouvent dans un des triangles d'une matrice carrée.