Пожалуйста посчитайте решить в паскале:Замените элементы 1-ой строки матрицы элементами равными 1.

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

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