Ответ:

Объяснение:

program matrix;

var

   A: array[1..5, 1..5] of real;

   i, j: integer;

begin

 randomize;

 //инициализация случайными значениями и печать матрицы

 writeln('Наша матрица:');

 for i := 1 to 5 do

 begin

   for j := 1 to 5 do

   begin

       A[i, j] := random();

       Write(A[i, j]:5:2);

   end;

   writeln();

 end;

 writeln('Числа на диагонали:');

 for i := 1 to 5 do

   writeln(A[i, i]:5:2);

end.

Ответ:

Ну или в 5 строк:

--- PascalABC.NET 3.6.2 ---

const size = 5;

begin

 var A := MatrRandomReal(size, size, -99,99);

 for var i := 0 to size-1 do Println(Round(A[i,i], 3));

end.