Program Program1; var a:array [1..50,1..50] of integer; m,n,i,j:integer; begin randomize; write('Введите m: '); readln(m); write('Введите n: '); readln(n); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(30)+1; write(a[ i, j ]:5); end; writeln; end; end.