Дана матрица 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.