Задание №5 по информатике
Дана прямоугольная матрица порядка mхn. Получить новую матрицу путем деления всех элементов первоначальной на элемент наибольший по абсолютной величине.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var m:array [1..500,1..500] of real ;
m2:array [1..500,1..500] of real ;
max:real;
x,i,j,i1,j1:integer ;
ksr,kst:integer; //кол во строк и стольбцов
begin
writeln ('vvedite kolvo strok');
readln (kst);
writeln ('vvedite kolvo stolbcov');
readln (ksr);
for i:=1 to kst do
for j:=1 to ksr do
m[i,j]:=random (99);
for I:=1 to kst do
begin
for J:=1 to ksr do
write (m[i,j]:0:0,' '); // выводим матрицу
writeln;
end;
max:=-MAXINT; // определяем самое максимальное число
for i:=1 to kst do begin
for j:=1 to ksr do begin
if max<m[i,j] then max:=m[i,j];
end;
end;
writeln ( 'Max element = ', max:0:0 );
for i:=1 to kst do
for j:=1 to ksr do
m2[i,j]:=m[i,j]/max; //делим матрицу на макс. число
for i:=1 to kst do
begin
for J:=1 to ksr do
write (m2[i,j]:2:2,' '); // выводим новую матрицу
writeln;
end;
readln;
end.
