M021. Матрисаи ҳақиқии A(N,M) дода шудааст. Барномаи ҳисоби намудани миқдори аъзоҳои матриса, ки барояшон шарти р1<=a(i,j)<=p2 иҷро мешавад, тартиб дода шавад. Қиматҳои p1 ва p2 алоҳида дода мешаванд.

<?php
$N=rand(3,7);
$M=rand(3,7);
$p1=rand(5,8);
$p2=rand(10,13);
echo "N=$N<br>M=$M<br>p1=$p1<br>p2=$p2";
?>
<table border="1">
<?php for($i=0; $i<$N; $i++) { ?>
<tr>
<?php for($j=0; $j<$M; $j++) { ?>
 <td><?php echo "A<sub>$i$j</sub>=", $a[$i][$j]=rand(0,20); ?></td>
<?php } ?>
</tr>
<?php } ?>
</table>
<?php 
$n=0;
for($i=0; $i<$N; $i++)
   for($j=0; $j<$M; $j++)
      if($a[$i][$j]>=$p1 && $a[$i][$j]<=$p2) $n++;
echo "Микдори аъзохое, ки барояшон шарти "
   ."$p1<=a<sub>ij</sub><=$p2 ичро мешавад: $n";
?>