<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span> <span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span> <span>Устанавливает цвет и стиль закраски. </span>
Program n1; const maxm = 50; maxn = 50; var a:array[1..maxm,1..maxn] of integer; min,max,i,j,n,m,x,maxi,mini:integer; begin write('Введите размеры матрицы (N*M): '); readln(n,m); writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:'); min:=maxint; max:=-maxint-1; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end; if a[i,j]<min then begin min:=a[i,j]; mini:=i; end; end;
for j:=1 to m do begin x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x; end;
writeln('Матрица после преобразования:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; <span> end. </span>
Есть закон <span>B→C = notB or C, а значит </span><span>(B→notC) можно представить как (notB or notC), далее по аналогии... все выражение становится </span><span>not( A or not B or notC) = notA and B and C (по правилу деМоргана)</span>