Question

заполнить квадратный массив размером 5×5 случайными числами в диапазоне до 100 затем заполнить нулями вспомогательную диагональ и вывести на экран

Answer 1

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.