Les structures de donnés/EX 8

-->

Soit T un tableau contenant N entiers > 0 avec (5 < N < 20)

Ecrire le programme Pascal qui permet de calculer la somme des elements de T, la moyenne arithmetique et d’afficher le plus petit et le plus grand élément.

program tableau;

uses wincrt;

var t:array [1..20] of integer;

max,min,i,s,n:integer;

begin

repeat

write('n=?');

readln(n);

until (n>=5) and (n<=20);

for i:=1 to n do

repeat

write('donner t[',i,']');

readln(t[i]);

until t[i]>0;

s:=0;

for i:=1 to n do

s:=s+t[i];

min:=t[1];

for i:=2 to n do

if t[i] < min then

min:=t[i];

max:= t[1];

for i:=2 to n do

if t[i] > max then

max:= t[i];

writeln('la somme est ',s);

writeln('la moyenne est ', s/n:6:2);

writeln('le max est ',max);

writeln('le min est ',min);

end.

-->