VAR a:array[1..10000,1..10000]of integer; m,n,k,i,j: integer;
begin
write('Введите 3 целых числа m, n, k = '); read(m,n,k);
writeln;
for i:=1 to m do begin
for j:=1 to n do
a[i,j]:=i+j+k; write(a[i,j]:6);
writeln; end;
<span>end.</span>
-------------------------------------------q²+q-30=0(q+6)(q-5)=0q=-6<0 - не подходитq=5 - подходитОтвет: 5
-----------------------------------------------