Нахождение минимального значения и деление всех элементов массива на его.

[Владислав228]

Помогите пожалуйста. =
Создать двумерный динамический массив произвольного размера. Заполнить его случайным образом. Найти минимальный элемент массива, поделить все элементы массива на него.
паскаль
Как поделить все элементы массива на минимальное значение?

[Аелд]

может по очереди каждый элемент делишь на минимальный

[Вадим Мошев]

Сообщение от Аелд

может по очереди каждый элемент делишь на минимальный

Ну что ж, не возражаю.
Вот массив:
1 2 3 4 9 8 0 0 0

[newerow1989]

var p:array of array of real;
    i,j,n,m:byte;
    min:real;
begin
   Randomize;
   n:=1+Random(10);
   m:=1+Random(10);
   SetLength(p,n);
   For i:=0 to n-1 do
   begin
      SetLength(p[i],m);
      For j:=0 to m-1 do
      begin
         Repeat
            p[i,j]:=Random(21);
         Until p[i,j]<>0;
         Write(p[i,j]:5:5,'  ');
      end;
      Writeln;
   end;
   min:=p[0,0];
   For i:=0 to n-1 do
      For j:=0 to m-1 do
         If min>p[i,j] then
            min:=p[i,j];
   Writeln('min = ',min:5:5);
   Writeln;
   For i:=0 to n-1 do
   begin
      For j:=0 to m-1 do
      begin
         p[i,j]:=p[i,j]/min;
         Write(p[i,j]:5:5,'  ');
      end;
      Writeln;
   end;
   Readln;
end.

Сойдет?