5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m= X: новый массив

5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. program a5; var i,j,n,m:integer; a:array[1..10,1..10] of integer; x:array [1..10] of integer; begin read (n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; writeln; for j:=1 to m do begin x[j]:=random(100); write(x[j]:5); end; writeln; for j:=1 to m do for i:=1 to n do if i mod 2=0 then a[i,j]:=x[j]; writeln('новый массив'); for i:=1 to n do begin for j:=1 to m do begin write(a[i,j]:4) end; writeln; end; end.

6.Задан двумерный массив и целое число K. Заменить все элементы, меньшие K, этим числом. k= новый массив

program a6; var i,j,n,m,k:integer; a:array[1..10,1..10] of integer; begin read (n,m); write('k=');read(k); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; writeln ('новый массив'); for i:=1 to n do begin for j:=1 to m do begin if a[i,j]