Найти значение максимальных элементов матрицы, их индексы и количество - Pascal ABC

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

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


textual

Код к задаче: «Найти значение максимальных элементов матрицы, их индексы и количество - Pascal ABC»

Const nmax=20;
Var A:array[1..nmax,1..nmax] of real;
    i,j,n,k:integer;
    max:real;
Begin
    Repeat
     write('Введите размерность матрицы: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n,'x',n,' чисел матрицы');
    For i:=1 to n do
     For j:=1 to n do
      read(A[i,j]);
    writeln('Матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:7:2);
      writeln;
    End;
    max:=A[1,1];
    For i:=1 to n do
     For j:=1 to n do
      if A[i,j]>max then max:=A[i,j];
    writeln('Max = ',max:0:2);
    k:=0;
    write('Пары индексов: ');
    For i:=1 to n do
     For j:=1 to n do
      if A[i,j]=max then 
      Begin
        max:=A[i,j];
        write('A[',i,',',j,']',' ');
        k:=k+1;
      End;
    writeln;
    writeln('Всего пар = ',k);
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник