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

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

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

Дана действительная матрица А(7*7), в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.

@Hitoku · 15.04.2017, 23:49

Pascal

const n=7;
var a:array [1..n,1..n] of integer;
    b:array [1..n,1..n] of real;
    i,j,im,jm:byte;
begin
  randomize;
  im:=1; jm:=1;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(40)-20;
      write(a[i,j]:3,' ');
      if abs(a[im,jm])<abs(a[i,j]) then begin
        im:=i; jm:=j;
      end;
    end;
    writeln;
  end;
  writeln('Максимальный по модулю элемент = ',a[im,jm]);
  for i:=1 to n do begin
    for j:=1 to n do begin
      b[i,j]:=a[i,j]/a[im,jm];
      write(b[i,j]:5:2,' ');
    end;
    writeln;
  end;
end.

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
		1
	Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент 15.04.2017, 09:45. Показов 1421. Ответов 1 Метки нет (Все метки) Дана действительная матрица А(7*7), в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент. 0

	15.04.2017, 23:49

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

Решение