Question

Помогите пожалуйста решить задачу в паскале. Массив 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); // Random(101) генерирует числа от 0 до 100.

  // Инициализируем сумму и счетчик.
  sum := 0;
  count := 0;

  // Вычисляем среднее арифметическое двузначных чисел на главной диагонали.
  for i := 1 to 5 do
  begin
    if (matrix[i, i] >= 10) and (matrix[i, i] <= 99) then
    begin
      sum := sum + matrix[i, i];
      count := count + 1;
    end;
  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]:4);
    writeln;
  end;

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

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