===== PascalABC.NET =====
begin
var n := 5;
var m := MatrRandom(n, n, -15, 25);
m.Print(4);
Writeln;
for var i := 0 to n -1 do
Write(m[i, i]:4)
end.
![Заполнить матрицу 5х5 случайными числами в интервале [-15,25] и вывести ее на экран вывести на экран](/tpl/images/1039/6865/5f37d.jpg)
