Составьте программу нахождения значение максимального элемента двухмерного массива размером N x N

[PascalABC_]

Удалено, всем спасибо

[PascalABC_]

@Serge_Bliznykov, выручайте ;(

[Serge_Bliznykov]

хоть что-нибудь самостоятельно Вы можете написать?
ну объявление переменных, массива?
заполнение двухмерного массива числами?
Вывод двухмерного массива на экран? (подсказка, два вложенных цикла).

в данном случае поиск максимального удобно проводить в два этапа.
Первый. Проходим (два вложенных цикла) по массиву, находим максимальное значение.
второй этап. Проходим (два вложенных цикла) по массиву, если значение равно максимальному значению, найденному на этапе 1, то выводим его индексы на экран и увеличиваем счётчик.
после выводим счётчик.
конец.

[PascalABC_]

Сообщение от Serge_Bliznykov

хоть что-нибудь самостоятельно Вы можете написать?
ну объявление переменных, массива?
заполнение двухмерного массива числами?
Вывод двухмерного массива на экран? (подсказка, два вложенных цикла).

в данном случае поиск максимального удобно проводить в два этапа.
Первый. Проходим (два вложенных цикла) по массиву, находим максимальное значение.
второй этап. Проходим (два вложенных цикла) по массиву, если значение равно максимальному значению, найденному на этапе 1, то выводим его индексы на экран и увеличиваем счётчик.
после выводим счётчик.
конец.

Последняя просьба, напишите пожалуйста код боюсь совершить ошибку на экзамене

[S_Yevgeniy]

Вот тут пример можете посмотреть

http://inf.1september.ru/2008/07/02.htm

3.1. Поиск максимального (минимального) значения в массиве
Задача
16. Синоптики фиксировали дневные температуры ….

У Вас будет

Цикл по I до n
Цикл по J до n
Условие на определения мак
Внутри условия считаем сколько мак было. и суммируем значения.
Если же число стало больше мак то обнуляем сумму и кол мак

[Stilet]

Последняя просьба

Последнее китайское предупреждение - Серж, выручай а не то...

const n=0,m=0;
var i,j,max,k:integer; a:array[1..n,1..m] of integer;
begin
 for i:=Low(a) to High(a) do
  for j:=Low(a[i]) to High(a[i]) do begin
   readln(a[i,j]); if a[i,j]>max then max:=a[i,j];
  end;
 k:=0;
 for i:=Low(a) to High(a) do
  for j:=Low(a[i]) to High(a[i]) do begin
   if a[i,j]=max then begin inc(k); writeln(i:5,j:5); end;
  end;
 writeln('Кол-во=',k); readln;
end.

1) Не копипастить!!! Это просто пример.
2) Это классический паскаль, адаптируй его под АБЦ свое.
3) Размеры массива сам поставишь.

P.S. Скажи спасибо Сержу!