Матрица, Найти минимальный по модулю элемент матрицы и умножить на его значение Опции

[minoru]

Пожалуйста помогите с задачей для курсовой работы :
Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы. Вывести полученную матрицу на печать.

[Lapp]

Пожалуйста помогите с задачей для курсовой работы :

Обязательно поможем. Говори, что сделал и что непонятно.

[minoru]

{
        #5.pas
        
        Copyright 2008 Roman <minoru@minoru-desktop>
        
        Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы.
        Вывести полученную матрицу на печать.
}


program Work_5;

uses crt;
var   i,j,m,n:integer;
      a  : array[1..10,1..10] of real;
      c  : real;

BEGIN	
clrscr;
    write ('n='); Readln(n);
    write ('m='); readln (m);
    begin
       for i := 1 to n do
          begin
             for j := 1 to m do
               begin
                   write('a[',i,',',j,']='); readln(a[i,j]);
               end;
              writeln;
          end;
         
     end;
    readln;
END.

Вот а дальше "ступор", не могу понять как минимальный по модулю элемент.

[Айра]

Ищешь минимум как обычно, только сравниваешь не сами элементы, а их модули: abs(a[i,j])

[samec]

например так:

 
min:=abs(a[1,1]);
for i:=1 to n do
 for j:=1 to m do
  if(min > abs(a[i,j])) then
    min:=abs(a[i,j]);

[minoru]

Вот может кому пригодится

{
        #5.pas
        
        Copyright 2008 Roman <minoru@minoru-desktop>
        
        This program is free software; you can redistribute it and/or modify
        it under the terms of the GNU General Public License as published by
        the Free Software Foundation; either version 2 of the License, or
        (at your option) any later version.
        
        This program is distributed in the hope that it will be useful,
        but WITHOUT ANY WARRANTY; without even the implied warranty of
        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        GNU General Public License for more details.
        
        You should have received a copy of the GNU General Public License
        along with this program; if not, write to the Free Software
        Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
        MA 02110-1301, USA.
}


program Work_5;

uses crt;

const maxM=100;
        maxN=100;

type TArray = array [1..maxN, 1..maxM] of real;

var   m, n: byte;
      Ar: TArray;
      min: real;


procedure InputMx(Var Ar: TArray; var n, m: byte);
var i, j: byte;
begin
clrscr;
    write ('n='); Readln(n);
    write ('m='); readln (m);
    for i:=1 to n do
      for j:=1 to m do
       begin
        write('a[',i,',',j,']=');
	readln(Ar[i,j])
       end
end; 

procedure FindMinAbs(Ar: TArray; n, m: byte; var min: real);
var i, j, minm, minn: byte;
begin
  minn:=1;
  minm:=1;
  for i:=1 to n do
    for j:=1 to m do
     if abs(Ar[i,j])<abs(Ar[minn,minm])
     then
      begin
       minn:=i;
       minm:=j
      end;
  min:=Ar[minn,minm]
end;

procedure MultMxByMinAbs(var Ar: TArray; n, m: byte; min: real);
var i, j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      Ar[i,j]:=Ar[i,j]*min
end;

procedure ShowMx(Ar: TArray; n, m: byte);
var i, j: byte;
begin
  clrscr;
  for i:=1 to n do
    for j:=1 to m do
      writeln('a[',i,',',j,']=',Ar[i,j]8)
end;

BEGIN	
  InputMx(Ar,n, m);
  FindMinAbs(Ar, n, m, min);
  MultMxByMinAbs(Ar, n, m, min);
  ShowMx(Ar, n, m)
END.