begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
Writeln;
var t := a.ElementsWithIndices.MaxBy(p -> p[0]);
var (r, c) := (t[1], t[2]);
a.SetRow(r, ArrFill(n, 1));
a.SetCol(c, ArrFill(n, 1));
a.Println(4)
end.
Вал, лофа, фол, вода жало а больше не знаю
10бит 20бит 2байта 1010байтов 1Кбайт
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.