Пожалуйста помогите с задачей для курсовой работы :
Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы. Вывести полученную матрицу на печать.
{
#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.
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]);
{
#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.