|< 1 2 >| | 16 Einträge, 2 Seiten |
1 2 3 4
my @array = qw (+1 -43 +5 -5 +3); my $sum = ; $_ > and $sum += $_ for @array; print $sum;
1
2
3
my @array = qw (-45 -355 +1 +55 -23);
for $a (@array) {$sum += $a if ($a > 0)}
print $sum;
1
2
3
my @array = qw (-45 -355 +1 +55 -23);
for $a (@array) {$sum += $a if ($a > 0)}
print $sum;
|< 1 2 >| | 16 Einträge, 2 Seiten |