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

[Гость_viv]

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

[APAL]

Наверное условие не полное... Может больше какого то значения?
Или нужно просто вывести все элементы со своими индексами в порядке убывания?

[virt]

APAL ,
скорее всего надо найти максимальный элемент ,и потом найти все места где этот максимальный стоит.

[APAL]

Ждемс комментов от автора...
Так-то задача простая.

[trminator]

Так ему вроде самому комментарии и нужны.

Пример: матрица 3*3
5 6 7
3 2 1
6 1 6

Найбольший элемент - 6 - встречается 3 раза. Нужно вывести три пары чисел:
1 2
3 1
3 3

[Гость_viv]

Я правильно Вас поняла, что нужно вывести все места, где стоит наибольший элемент в матрице? В примере понятно, что наибльший элемент встерчается 3 раза. Но не понятно, откуда вывели три пары чисел. Поясните пожалуйста еще раз.

[APAL]

Пары чисел - это индексы наибольших элементов.

:D Прочти еще раз условие и задание :D

[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.

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