... var i,j:integer; Begin dem:=0; for i:=1 to M do for j:=1 to N do if (A[i,j]=maxj[j]) and (A[i,j]=mini[i]) then inc(dem); End; {**************************} ... var A:array[1..100,1..100] of integer; maxj,mini:array[1..100] of integer; M,N,dem :integer; F:Text; {**********************} procedure Doc_file; var i,j:integer; ... {*************************} BEGIN Doc_file; Assign(f,'D:\B2OUT.TXT'); rewrite(f); Xu_ly; Write(f,dem); Close(f); END. ...