===== PascalABC.NET =====
begin
var (n, m) := ReadInteger2('Задайте n и m:');
if n < 4 then
Print('Ошибка: n < 4');
exit
end;
var a := MatrRandom(n, m, -99, 99);
a.Println;
Writeln;
a.SetRow(n - 1, a.Row(2)); // это замена строки
a.Print
end.
===== PascalABC.NET =====
begin
var (n, m) := ReadInteger2('Задайте n и m:');
if n < 4 then
begin
Print('Ошибка: n < 4');
exit
end;
var a := MatrRandom(n, m, -99, 99);
a.Println;
Writeln;
a.SetRow(n - 1, a.Row(2)); // это замена строки
a.Print
end.