Question

Помогите срочно пожалуйста

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=new integer[5,5];
  var b:=ArrGen(5,i->i+1);
  for var i:=0 to 4 do begin
    a.SetRow(i,b);
    b:=b[1:]+b[:1]
    end;
  a.Println(2)
end.