{В матрице A[n x m]  найти и напечатать номера элементов строк,
сумма которых со следующим элементом той же строки  максимальна.
Найти и напечатать номера элементов столбцов,
произведение которых с предыдущим элементом того же столбца минимальна.}

program main;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  RusLib;

const
  n=4;
  m=3;
type
  Mas = array [1..n,1..m] of Integer;
var
  A:Mas;
  ip, jp, indj, indi, i, j, max, min:Integer;
begin
 {Заполнение массива}
            for  i:=1 to n do
            for  j:=1 to m do
            begin
              Write('Введите элемент','A[',i,',',j,']=');
              Readln(A[i,j]);
            end;

         for  i:=1 to n do
            begin
              For  j:=1 to m do Write (A[i,j]:6);
              Writeln;
            end;
          {Присваивание начальных значений}

             indi:=1;
             indj:=1;
              jp:=1;
             ip:=1;
             Writeln;

               {Поиск максимальной суммы}
     for i:=1 to n do
           begin
               max:=Low(max);
             for j:=1 to m-1 do
             begin
               if  A[i,j]+A[i,j+1]>=max
               then
                 begin
                   max:=A[i,j]+A[i,j+1];
                   indi:=i;
                   indj:=j;
                 end;
             end;
              Writeln('Максимальная сумма:',max);
              Writeln('Координаты элементов максимальной суммы:(',indi,',', indj,') (', indi,',', indj+1,')');
              Writeln;
           end;



               {Поиск минимального произведения}
           for j:=1 to m do
           begin
             min := High(min);
             for i:=1 to n-1 do
               if (A[i,j])*(A[i+1,j])<=min
               then
                 begin
                   min:=(A[i,j])*(A[i+1,j]);
                   ip:=i;
                   jp:=j;
                 end;

                   Writeln('Минимальное произведение:',min);
                   Writeln('Координаты элементов минимального произведения:(',ip,',', jp,') (', ip+1,',',jp,')');
                   Writeln;
               end;


      Readln;

end.