1.biggest of two numbers print "Enter two numbers\n"; $a = <STDIN> ; $b = <STDIN> ; if($a>$b) {$big=$a;} else {$big=$b;} print "biggest=$big"; 2.Biggest of 3 numbers print "Enter three numbers\n"; $a = <STDIN> ; $b = <STDIN> ; $c = <STDIN> ; if ($a >$b and $a > $c) {print "biggest is=",$a;} elsif ($b >$a and $b > $c) {print "biggest is=",$b;} else {print "biggest is=",$c;} 3.printing 1-100 ( for and while) #print 1-100 for($i=1;$i<=100;$i++) { print "$i\n"; } $i=1 while($i<=100) { print "$i\n"; $i=$i+1; } 4. Creating a 10 elemnt array and sorting it in ascending and descending order # @a IS THE ARRAY print "enter 10 numbers\n"; for($i=0;$i<10;$i++) { $x=<STDIN>; push(@a,$x); } @aso=sort { $a <=> $b } @a; @dso=sort { $b <=> $a } @a; print ...
KTU FOSS Lab Solutions-by Dr Binu V P