var_7

program var_7;
uses crt;
var
a:array[1..50,1..50] of integer;
m,n,i,j,min,max:integer;
begin
writeln('Введите размер матрицы MxN');
readln(m,n);
writeln('Заполните матрицу');
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
for i:=2 to m do
for j:=2 to n do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln('max: ', max);
writeln('min: ', min);
writeln('Измененная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if a[i,j]=max then a[i,j]:=min
else if a[i,j]=min then a[i,j]:=max;
write(a[i,j]:3);
end;
writeln;
end;
end.