procedure SumCol(m,k:integer; var p,s:integer); var i:integer; begin s:=0; p:=0; for i:=1 to m do if Abs(a[i,k])<=3 then begin s:=s+a[i,k]; p:=p+1 end end;
var i,j,kol,sum:integer;
begin Writeln('*** Исходная матрица ***'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:3); Writeln end; for i:=1 to n do Write('---'); Writeln; SumCol(m,3,kol,sum); Writeln('Элементов ',kol,', их сумма равна ',sum) end.
SetBrushHatch, принимает параметр - стиль штриховки. Подробности - в справке по ABCGraph, подраздел "Подпрограммы для работы с кистью". Это установка вида штриховки. А сама штриховка получится при обычной заливке. Или заливке ранее нарисованного контура, или при рисовании фигуры с заливкой. Этих команд много.