Практикум по решению задач на ЭВМ. Тарова И.Н - 46 стр.

                                  Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


          write(s[i]:4);
       writeln;
       readln;
     end.




4)       Дана


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


     const m=3;
       n=4;
     var
       a:array[1..m,1..n] of real;
       b:array[1..m,1..n] of real;
       i,j:integer;
       max:real;
     begin
       writeln('введите массив');
       writeln('после ввода элементов каждой строки ,',
       n,' целых чисел,);
       writeln(' нажимайте enter');
       for i:=1 to m do
           begin
              write('->');
             for j:=1 to n-1 do
                read(a[i,j]);
                readln(a[i,n]);
           end;
       max:= abs(a[1,1]);
       for i:=1 to m do
           begin
             for j:=1 to n do
                if abs(a[i,j])>max then
                   max:=abs(a[i,j]);
           end;
       for i:=1 to m do


                                       46