---

Var a: array[1…50,1…50] of integer;
i, j, n, m: integer;
Begin
Write(*сколько строк?"); Readln(m);
Write(*сколько столбцов?"); ReadIn(n);
Randomize;
For i:=1 to m do
begin
For j:=1 to n do
begin
a[i,j]:=random(46)-20;
write(a[i,j],' ');
end;
writeln;
end;
End.