Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
#!\strawberry\perl\bin print"Enter the number of column\n"; $r=<stdin>; print"\nEnter the numer of row\n"; $c=<stdin>; print"\neNTER THE sEQUENCE FOR THE ROW\n"; $i=0; for($j=1;$j<=$c;$j++) { $a[$i][$j]=<stdin>; } print"\neNTER THE sEQUENCE FOR THE ROW\n"; $j=0; for($i=1;$i<=$r;$i++) { $a[$i][$j]=<stdin>; } $i=0; { for($j=0;$j<=$c;$j++) { chomp $a[$i][$j]; print"\t$a[$i][$j]"; } print"\n"; } for($i=1;$i<=$r;$i++) { $j=0; { chomp …
|