|
Recherche du max, min et moyenne sur un tableau |
 |
 |
|
Written by Administrator
|
|
Friday, 06 March 2009 14:34 |
|
Recherche : - Maximum
- Minimum
- Moyenne
d'un tableau
Solution en Pascal
program statistique;
uses wincrt;
var max,min,moyenne,somme:real;
i,n:integer;
t:array[1..100]of real;
begin
repeat
read(n);
until(n in [5..100]);
pour i:=1 to n do
read(t[i]);
max:=t[1];
min:=t[1];
somme:=0;
for i:=1 to n do
begin
if(max
if(min>t[i])then min:=t[i];
somme := somme + t[i];
end;
moyenne:=somme/n;
writeln('Le maximum est :',max);
writeln('Le minimum est :',min);
writeln('La moyenne est :',moyenne);
end.
|
Cours algorithmique 