Question

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

Answer 1

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 <> 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.

Answer 2

Вот пример решения задачи на языке Pascal:

pascalCopy code
program AverageDiagonal;
var
  matrix: array[1..5, 1..5] of integer;
  i, j, sum, count: integer;
  average: real;

begin
  randomize;

  // Заполнение массива случайными числами от 0 до 100
  for i := 1 to 5 do
    for j := 1 to 5 do
      matrix[i, j] := random(101);

  // Инициализация переменных
  sum := 0;
  count := 0;

  // Вычисление суммы двузначных чисел на главной диагонали
  for i := 1 to 5 do
    if (matrix[i, i] >= 10) and (matrix[i, i] <= 99) then
    begin
      sum := sum + matrix[i, i];
      count := count + 1;
    end;

  // Вычисление среднего арифметического
  if count > 0 then
    average := sum / count
  else
    average := 0;

  // Вывод результата
  writeln('Массив:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(matrix[i, j]:5);
    writeln;
  end;

  writeln;
  writeln('Среднее арифметическое двузначных чисел на главной диагонали: ', average:0:2);
end.

Этот код создает матрицу 5x5, заполняет ее случайными числами от 0 до 100, затем находит среднее арифметическое двузначных чисел на главной диагонали и выводит результат.