étendu dans un tableau

Aller en bas

étendu dans un tableau

Message  Admin le Sam 16 Avr - 21:35

ÉNONCÉ

écrire un programme permettant de remplir un tableau par n entiers positifs (4<=n<=100), puis affiche l'étendue de ce tableau sachant, sachant que l'étendue est la différence le max et le min dans ce tableau.
exemple: si t= 5 10 45 7 11 alors étendue = 45-5 car 45 est la plus grande valeur dans t et 5 est la plus petite, le programme affiche donc 40 .

PASCAL


Program etendue;
Uses wincrt;
Type
TAB = Array [1..100] of integer;
Var
E, MIN, MAX, I, N : integer ;
T : TAB;
{******************************************************}
Function MINIMUM ( T : TAB ; N : integer) : integer ;
Var
J , M : integer ;
Begin
M := T[ 1 ] ;
For j := 2 to N do
Begin
If T [ j ] < M then M := T [ j ];
End;
MINIMUM := M;
End;
{*******************************************************}
Function MAXIMUM ( T : TAB; N: integer) : integer;
Var
K , MA : integer ;
Begin
MA := T [ 1 ] ;
For K := 2 to N do
Begin
If T [ K ] > MA then MA := T [ K ];
End;
MAXIMUM := MA;
End;
{*******************************************************}
Begin
Repeat
Writeln (' Entrer le nombre des éléments'); readln ( N );
Until (N IN [4..100]);
For I := 1 to N do
Begin
Writeln ('Entrer l''entier ', I); readln ( T [ I ]);
End;
MIN := MINIMUM (T, N);
MAX := MAXIMUM (T, N);
E := MAX - MIN ;
Writeln ('L''étendu est ', E);
End.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum