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.
Внимание! Если программа не работает, обновите версию!
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.