Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать - Pascal ABC - Ответ 6251299

program dinmas2;
{$R-}{set off control range of array}
uses crt;
type
row=^prow;
prow =array[1..1] of integer;
mas=^pmas;
pmas=array[1..1] of row;
var
r: mas;
m, n: integer;         {count elements of array }
i, j : integer; {index of array}
begin
clrscr;
write('количество строк массива m=');    readln(m);
write('количество столбцов массива n=');   readln(n);
getmem(r,m*sizeof(row));{память под строки}
for i:=1 to m do
getmem(r^[i],n*sizeof(integer));{память под элементы строк}
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r^[i]^[j]:=random(10);
    write(r^ [i] ^ [j]:3);
   end;
  writeln;
 end;
for i:=1 to m do freemem(r^[i], n*sizeof (integer));{освобождаем память в обратном порядке}
freemem(r,m*sizeof(row));
readln
end.