Найти максимальный элемент матрицы 3х5 и его индексы

массив инициализировать как константу. помогите пожалуйста!
2 ответа

program maxElement;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=3; m=5;
var i,j,imax,jmax,max:integer;
    a:array[1..n,1..m] of integer;
begin
   for i:=1 to n do begin
      for j:=1 to m do read(a[i,j]);
   end;
   max:=a[1,1];
   for i:=1 to n do begin
      for j:=1 to m do begin
         if a[i,j]>max then begin
            max:=a[i,j];
            imax:=i;
            jmax:=j;
         end;
      end;
   end;
   write(max:3,imax:3,jmax:3);
   readln;
end.
Я не знаю, что значит инициализировать массив как константу, написал алгоритм ввода с клавиатуры.


Константный массив можно сформировать так:
const
  N=3;
  M=5;
  A:array [1..N,1..M] of integer=
    ((1,2,3),
     (4,5,6),
     (7,8,9),
     (10,11,12),
     (13,14,15));