Question

Помогите решить В заданной матрице заменить К-ю строку и L-й столбец нулями, кроме элемента, расположенного на их пересечении.

Answer 1

var k,l,i,j,m:integer;
 a:array[1..10,1..10] of integer;
 begin
 randomize;
 for i:=1 to 10 do
 for j:=1 to 10 do
 a[i,j]:=random(10)-5;
 for i:=1 to 10 do
 begin
 for j:=1 to 10 do write(a[i,j]:5);
 writeln;
 end;
 write('K=');
 readln(k);
 write('L=');
 readln(l);
 m:=a[k,l];
 for i:=1 to 10 do
 for j:=1 to 10 do
 if k=i then a[i,j]:=0 else if l=j then a[i,j]:=0;
 a[k,l]:=m;
 for i:=1 to 10 do
 begin
 for j:=1 to 10 do write(a[i,j]:5);
 writeln;
 end;
 end.