Position de la valeur max et min dans un tableau

Version imprimable

bonjour

j'aimerais savoir quelle est la position de la valeur max et min dans un tableau

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use strict;
use warnings;
use List::Util qw(max min);
 
 
my $valeur1 = "1240";
my $valeur2 = "1320";
my $valeur3 = "2050";
my $valeur4 = "2356";
 
my $chiffre  = 0;
my ($nbelememt);
 
my @tableau = (); 
 
 
push(@tableau, "$valeur1");
push(@tableau, "$valeur2");
push(@tableau, "$valeur3");
push(@tableau, "$valeur4");
 
$nbelememt = scalar(@tableau); 
 
print "Valeur du tableau: @tableau\n";
print "Nombre d'enregistrement: $nbelememt\n";
 
print max (@tableau)."\n";
print min (@tableau)."\n";
 
print "Valeur Max:". max (@tableau)."\n";
print "Valeur Min:". min (@tableau)."\n";

Merci d'avance pour vos reponce

Bien cordialement

Code:

1
2
3
4
5
6
7
8
 
my ($indexMin,$indexMax) = (0,0);
my $i = 1;
while ($i < scalar(@t)) {
  $indexMax = $i if($t[$i] > $t[$indexMax] );
  $indexMin = $i if($t[$i] < $t[$indexMin] );
  ++$i;
}

09/02/2011, 15h22
Philou67430

Manque juste quelque $ ;)
Par ailleurs, on peut commencer la boucle avec $i = 1
09/02/2011, 15h47
Dimitry.e

Erratum.
Je corrige.
09/02/2011, 16h48
www.rubis

Merci pour vos reponse

j'ai du mal a comprendre mais cas marche

comment faire pour avoir toute les valeurs sauf $indexMax ???

Citation:

my $i = 0;
while ($i < scalar(@heure_max)) {
$indexMax = $i if($heure_max[$i] > $heure_max[$indexMax] );
$indexMin = $i if($heure_max[$i] < $heure_max[$indexMin] );
++$i;
}

print "position valeur Max $indexMax\n";
print "position valeur Min $indexMin\n";

Merci davance pour vos reponse

Bien cordialement