PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(5,5,0,100); a.Println(4); Writeln(20*'-'); for var i:=0 to 4 do a[i,4-i]:=0; Writeln('*** Полученная матрица ***'); a.Println(4)end.