Var a:array[1..100,1..100] of integer;
i,j,n,m,max,min:integer;
begin
write ('Введите количество строк: ');
read(n);
writeln;
write ('Введите количество элементов в строке: ');
read(m);
writeln;
writeln('Введите массив: ');
for i:=1 to n do begin
for j:=1 to m do begin
write(' a[',i,',',j,']=');
read(a[i,j]);
end;
writeln;
end;
writeln;
writeln('Исходный массив: ');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Конечный массив: ');
for i:=1 to n do begin
min:=a[i,1]; max:=a[i,1];
for j:=2 to m do begin
if (min>a[i,j]) then min:=a[i,j];
if (max