M022. Матрисаи ҳақиқии квадратии A(N,N) дода шудааст. Барномаи ҳисоби намудани миқдор ва суммаи аъзоҳои болои диагонали асосӣ воқеъбуда тартиб дода шавад.

<?php
$N=rand(3,7);
echo "N=$N<br>";
?>
<table border="1">
<?php for($i=0; $i<$N; $i++) { ?>
<tr>
<?php for($j=0; $j<$N; $j++) { ?>
 <td>
 <?php 
 if($i<$j) echo "<span style='color: #ff0000; font-weight: bold'>"; 
 echo "A<sub>$i$j</sub>=", $a[$i][$j]=rand(0,20); 
 if($i<$j) echo "</span>"; 
 ?>
 </td>
<?php } ?>
</tr>
<?php } ?>
</table>
<?php 
$n=0;
$s=0;
for($i=0; $i<$N; $i++)
   for($j=0; $j<$N; $j++)
      if($i<$j) {
         $s+=$a[$i][$j];
         $n++;
      }
echo "Микдори аъзохое, ки болои диагонали асоси вокеанд: $n<br>";
echo "Суммаи аъзохое, ки болои диагонали асоси вокеанд: $s";
?>