Ответ:

program z1;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

writeln ('Матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(10);

write(a[i,j]:3)

end;

writeln

end;

writeln;

writeln ('Матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

if i = 1 then a[i,j]:=1;

write(a[i,j]:3)

end;

writeln

end

end.

Объяснение:

Задаём матрицу и выводим на экран

Если i (номер строки) = 1, то элемент становится равным 1

Выводим на экран

##

var (m, n) := ReadInteger2('Число строк и столбцов:');

var A := MatrRandom(m, n, -99, 99);

A.Println(4);

Writeln;

A.SetRow(0, |1| * n);

A.Print(4)