bonjour

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

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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