Задание №5 по информатике



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Дана прямоугольная матрица порядка 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.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!