Program Di_2;uses crt;var k,e,q,i,j,m,n:integer; a:array[1..10,1..10] of integer;begin clrscr; randomize;writeln('Введите размерность матрицы: ');writeln('Введите количество строк: '); read(m);writeln('Введите количество столбцов: '); read(n);writeln('Исходная сгенерированная матрица: ');for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10)-random(5)+random(5); write(a[i,j]:4); end;writeln;end;Writeln('Введите число-множитель: '); read(q);writeln('Введите номер столбца, который нужно умножить на число-множитель: '); read(e);writeln('Введите номер столбца к которому нужно прибавить столбец под номером ',e,' :'); read(k);for i:=1 to m do begin a[i,e]:=a[i,e]*q; a[i,k]:=a[i,k]+a[i,e]; end;writeln('Обработанная матрица: ');for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end;readkey; end.
