обьясните решение

[ronny137]

обьясните решение задачи

условие:

Составить программу обработки матрицы размерности NxN. В программе предусмотреть ввод и вывод матрицы и результата. ввод и вывод матрицы и ее обработку оформить в виде процедур или функций. выполнить программу для n=3
определить положение наибольшего элемента в матрице.

uses crt;
var
N, Min_I, Min_J:integer;
A:array[1..10,1..10] of integer;
type
atype=array[1..10,1..10] of integer;
procedure read_matrix(var N: integer; var A:atype);
var i,j:integer;
begin
N:=3;
writeln('Vvedite matricu 3x3:');
for i:=1 to N do
        for j:=1 to N do
               read(A[i,j]);
end;

procedure write_matrix(N: integer; A:atype);
var i,j:integer;
begin
writeln('Ishodnaya matrica:');
for i:=1 to N do
begin
        for j:=1 to N do
                write(A[i,j],' ');
        writeln();
end;
end;

procedure find_min(N:integer; A:atype; var Min_I,Min_J:integer);
var i,j:integer;
begin
Min_I:=1;
Min_J:=1;
for i:=1 to N do
        for j:=1 to N do
                if A[i,j]<A[Min_I,Min_J] then
                begin
                        Min_I:=i;
                        Min_J:=j;
                end;
end;

begin
clrscr;
read_matrix(N,A);
write_matrix(N,A);
find_min(N,A,Min_I,Min_J);
write('Minimalnoe znachenie: ',A[Min_I,Min_J]);
repeat
until keypressed;
end.

[Serebro]

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

begin
clrscr;
read_matrix(N,A); // ВВОД МАТРИЦЫ
write_matrix(N,A); // ВЫВОД МАТРИЦЫ
find_min(N,A,Min_I,Min_J); // ПРОЦЕДУРА НАХОЖДЕНИЯ МИНИМАЛЬНОГО ЗНАЧЕНИЯ
write('Minimalnoe znachenie: ',A[Min_I,Min_J]);
repeat
until keypressed;
end.

Всё очень просто. Нужно только заменить процедуру нахождения минимального значения на процедуру нахождения максимального значения.