Выпишите правильный ответ: Абак, Паскалево колесо, Линейка для навигационных расчетов, Русские счетыАбак, Счетно-перфорационная машина, Механическая счетнаямашина, Русские счетыАбак, Паскалево колесо, Механическая счетная машина, Аналитеческая машинаВычислительный автомат, Паскалево колесо, Механическаясчетная машина, Русские счеты ​

Дважды подряд записать трехзначное число — это значит умножить его на  1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.  

Последовательно разделить на 13, 11 и 7 –  значит разделить число на произведение 13 * 11* 7,  которое равно 1001.

Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:

(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.

Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.