Минимальный элемент массива

[hoolywood]

Матрица B состоит из 6 строк и 5 столбцов. Найти значение минимального элемента и умножить на него каждый элемент матрицы.

[Leo08]

var
A:array[1..5,1..6] of integer;
Min,i,j:integer;
Sum:longint;
Begin
Min:=a[1,1];
For i:=1 to 5 do
For j:=1 to 6 do
if a[i,j]<min then
Min:=a[i,j];
For i:=1 to 5 do
For j:=1 to 6 do
Sum:=sum+a[i,j]*min;
WriteLn('Минимальный элемент матрицы = ',min);
WriteLn('Сумма произведений всех элементов матрицы на минимальный = ',sum);
End;

[hoolywood]

мне не сумму надо а новую матрицу создать которая состоит из тех же элементов но умноженных на минимальный элемент

[Alex11223]

//находим мин элемент 
min=b[1];
for i:=1 to 6 do 
   for j:=1 to 5 do
      if b[i, j]<min then
         min:=b[i, j]; 
//умножаем каждый элемент матрицы на него
for i:=1 to 6 do   
   for j:=1 to 5 do
      b[i, j]:=b[i, j]*min;