Матрицы Опции

[Гость_viv]

Условие задачи такое: в матрице (mxn) найти все элементы с наибольним значением и их индексы. Я понимаю, если бы в условии было сказано, что найти элемент и его индекс. А как это все элементы. Помогите пожалуйста с задачей. Объясните суть.

[BlackShadow]

Должно быть так:

Код

Const
 n=3;
 m=3;
Var
 a:Array[1..m,1..n] Of Integer;
 i,j:Integer;
 max:Integer;
Begin
 For i:=1 To n Do
   For j:=1 To m Do
   Begin
     Write('Enter item in cell (',i,',',j,')');
     ReadLn(a[i,j])
   End;
 Max:=a[1,1];
 For i:=1 To m Do
   For j:=1 To n Do
     If a[i,j]>max Then
       max:=a[i,j];
 WriteLn('Maximum item = ',max);
 WriteLn('Positions:');
 For i:=1 To m Do
   For j:=1 To n Do
     If a[i,j]=max Then
       WriteLn(i,',',j)
End.

Если ничего не попутал...