var a:array[1..100,1..100] of integer; x,i,j,m,n:integer;
begin
write('кол-во строк=');read(n);
write('кол-во столбцов=');read(m);
for i:=1 to n do begin
for j:=1 to m do begin a[i,j]:=random(20);write(a[i,j]:4);end;writeln;end;
writeln('введите число '); readln(x);
for i:=1 to n do
for j:=1 to m do
if i+j=x then a[i,j]:=0;
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:4);writeln;end;
end.