Нашел максимум и минимум, но надо как-то исключить значения выделенных областей. Подскажите как эти области обозначить? как их найти,выделить...
Код:
Procedure maxmin;
var
min,max:integer;
begin
max:=A[1,1];
min:=A[1,1];
for i:=1 to n do
for j:=1 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);
end;
правилььно?