Получить новую матрицу путем деления всех элементов исходной на ее наибольший по модулю элемент

@аррт · Регистрация: 24.02.2016

Author24 — интернет-сервис помощи студентам

Дана действительная матрица размера nxm в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.

@Peoples · 25.02.2016, 17:44

Pascal

program pr;
var
i,n,m,j,max:integer;
a:array[1..100,1..100]of integer;   // ограничения так же любые( можешь сделать динамическим массивом,если надо)
b:array[1..100,1..100]of double;
begin
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы матрицы');
readln(m);
for i:=1 to n do 
begin
for j:=1 to m do
a[i,j]:=-10+random(21); // диапазон можешь ставить любой
end;
for i:=1 to n do 
begin 
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
max:=0;
max:=a[i,1];
for i:=1 to n do  
begin
for j:=1 to m do
if a[i,j]>max then
max:=a[i,j];
end;
for i:=1 to n do  
begin
for j:=1 to m do
b[i,j]:=(a[i,j]/(abs(max)));
end;
writeln;
for i:=1 to n do  
begin
for j:=1 to m do
write(' ',b[i,j]:3:2);
writeln;
end;
end.

@аррт 0 / 0 / 0 Регистрация: 24.02.2016 Сообщений: 3
		1
	Получить новую матрицу путем деления всех элементов исходной на ее наибольший по модулю элемент 24.02.2016, 23:53. Показов 1827. Ответов 1 Метки нет (Все метки) Дана действительная матрица размера nxm в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент. 0

	25.02.2016, 17:44

Получить новую матрицу путем деления всех элементов исходной на ее наибольший по модулю элемент

Решение