Дана матрица 7 х7, состоящая из целочисленных элементов. Увеличить все элементы строки с номером К на число В. Числа К и В целого типа, вводятся с клавиатуры. В Паскале.

Var

i, j, k, b:integer;

a:array[1 ... 7,1 ... 7]of integer;

begin

for i:=1 to 7 do

begin

for j:=1 to 7 do

begin

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

write (a[i, j],' ') ;

end;

writeln;

end;

writeln ('Введите k и b: ') ;

readln (k, b) ;

for j:=1 to 7 do a[k, j]:=a[k, j]+b;

writeln ('Измененный массив:') ;

for i:=1 to 7 do

begin

for j:=1 to 7 do write (a[i, j]:4) ;

writeln;

end;

end.