Найдите в массиве наибольший элемент и определите его местоположение - Turbo Pascal

Формулировка задачи:

Дан двумерный массив из M строк и N столбцов,состоящий из натуральных чисел.Найдите в нем наибольший элемент, определите его местоположение .Если таких элементов несколько ,выведете на экран монитора их количество и положение

Код к задаче: «Найдите в массиве наибольший элемент и определите его местоположение - Turbo Pascal»

textual
max:=0;
cnt:=0;
for i:=1 to m do
  for j:=1 to n do
  begin
    if A[i,j]=max then
      inc(cnt);
    if A[i,j]>max then begin
      max:=A[i,j];
      cnt:=1;
    end;
   end;
writeln('Count: ', cnt);

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ