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

[Nirvanaaa]

Помогите пожалуйста!
Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент.
В Turbo Pascal.
Заранее спасибо

[Serge_Bliznykov]

Nirvanaaa
программа простейшая. Написать её несложно. Но Вам с этого какая польза?!
Вы же ничему не научитесь!
Что Вы пытались написать, что не получается?

для затравки. описание массива может выглядеть так:

const 
   n = 3;  {число строк массива}
   m = 5;  {число столбцов массива}
var
  mas : array[1..n,1..m] of real; {массив действительных чисел размером n*m}
  i, j : integer; {вспомогательные переменные для индексов массива}
  MaxValue : real; {величина максимального по модулю элемента массива}
begin
  <тут напишите ввод значений массива>

  MaxValue := 0;
  <тут напишите поиск максимального по модулю элемента массива>

 { деление всех элементов массива на значение максимального по модулю элемента массива }
 for i:=1 to n do
   for j:=1 to m do
     mas[i,j] := mas[i,j] / MaxValue;

  readln;
end.

[Serge_Bliznykov]

Nirvanaaa
программа простейшая. Написать её несложно. Но Вам с этого какая польза?!
Вы же ничему не научитесь!
Что Вы пытались написать, что не получается?

для затравки. описание массива может выглядеть так:

const 
   n = 3;  {число строк массива}
   m = 5;  {число столбцов массива}
var
  mas : array[1..n,1..m] of real; {массив действительных чисел размером n*m}
  i, j : integer; {вспомогательные переменные для индексов массива}
  MaxValue : real; {величина максимального по модулю элемента массива}
begin

  <тут напишите ввод значений массива>

  MaxValue := 0;
  <тут напишите поиск максимального по модулю элемента массива>

 { деление всех элементов массива на значение максимального по модулю элемента массива }
 for i:=1 to n do
   for j:=1 to m do
     mas[i,j] := mas[i,j] / MaxValue;

  <тут напишите вывод на экран всех значений массива>
  readln;
end.

[Poma][a]

Серж
Всё бы хорошо, НО нужно сформировать новый массив, а не изменять старый..

[Naive]

Сообщение от Poma][a

Серж
Всё бы хорошо, НО нужно сформировать новый массив, а не изменять старый..

Это же было для затравки) В той проге будет ошибка деления на нуль)