";
$sum=0;
$l=0;
$count=0;
$k=0;
$f=0;
for($i=0;$i';
$ser=$sum/$l;
echo $ser;
for($i=0;$i$ser){
$count++;
$b[$k]=$m[$i];
$c[$f]=$i;
$f++;
$r=$f;
$k++;
$d=$k;}
}
if($count==0){
echo "Elrmentov netu
";
}
else
echo"
";
echo"kolichestvo elementov:$count
";
echo"eleneti bolshe ser:";
for($k=0;$k<=$d;$k++){
echo " | ".$b[$k];}
echo "
";
echo "ih nomera";
for($f=0;$f<=$r;$f++){
echo " | ".$c[$f];
fwrite($h,' | '.$c[$f] );
}
fwrite($h,"Col=".$count);
fclose($h);
?>