Решение в PascalМассив 5х5 заполнить случайными числами [0;100]. Отыскать среднее арифметическое

var

 ar: array[1..5, 1..5]of integer;

 i, j, sum, count: integer;

begin

 writeln('Массив:');

 for i := 1 to 5 do

 begin

   for j := 1 to 5 do  

   begin

     ar[i, j] := random(0, 100);

     if((ar[i, j] div 10 lt;gt; 0) and (i = j)) then

     begin

       sum := sum + ar[i, j];

       count := count + 1;

     end;

     write(ar[i, j], ' ');

   end;

   writeln();

 end;

 write('Среднее арифметическое двузначных чисел на основной диагонали = ', sum / count);

end.