{

                            Online Pascal Compiler.
                Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.

Данцелочисленный двумерный массив
(создать двумерный массив и инструмент заполнения  его  удобным  для  вас  способом:
  из  файла  или вручную  с  клавиатуры), размерности n х m(эти значения вводятся пользователем*).
  Найти максимум и минимум.
  Поменять их местами.
  *чтобы программа работала корректно объявить массив нужно большего размера, чем заданные пользователем n и m

}


program Hello;
begin
var i,j, max,min,N,M,min1,min2,max1,max2:integer;
max:= 0;
writeln('Введите количество строк массива: ');
readln(N);
writeln('Введите количество столбцов массива: ');
readln(M);
var A: array[1..50,1..50] of integer;
for i:=1 to N do
  for j:=1 to M do begin
    write('A[',i,',',j,']=');
    read ( A[i,j] );
  end;

min:= A[1,1];
min1:= 1;
min2:= 1;
writeln('Исходный массив: ');
for i:=1 to N do begin
  writeln;
    for j:=1 to M do
    write (A[i,j]:2,' ');
end;

for i:=1 to N do begin
    for j:=1 to M do
    if max < (A[i,j])
    then begin max:= (A[i,j]);max1:= i;max2:=j;
    end;
end;

for i:=1 to N do begin
    for j:=1 to M do
    if min > (A[i,j])
    then begin min:= (A[i,j]);min1:= i;min2:=j;
    end;
end;
writeln;
writeln('Максимальное число массива: ');
write(max);
writeln;
writeln('Минимальное число массива: ');
write(min);

A[max1,max2]:= min;
A[min1,min2]:= max;

writeln('Массив (мин. и макс. поменяны местами) : ');
for i:=1 to N do begin
  writeln;
    for j:=1 to M do
    write (A[i,j]:2,' ');
end;

end.