Правда,всё на виду ,без лжи
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
3) При составлении алгоритмов используют величины целого, вещественного, логического, символьного и литерного типов.
4) 2010 - целочисленный
14.48 – вещественный
'Да' – символьный
FALSE - логический
'142' – символьный
1,4 • 105 - вещественный
123Е-2 – может быть, как вещественным, целочисленным или символьным.
5) а) вес человека - вещественный
б) марка автомобиля - символьный
в) год вашего рождения - символьный
г) площадь фигуры - вещественный
д) название месяца года - символьный
е) количество мест в самолете - целый
SetBrushHatch, принимает параметр - стиль штриховки. Подробности - в справке по ABCGraph, подраздел "Подпрограммы для работы с кистью". Это установка вида штриховки. А сама штриховка получится при обычной заливке. Или заливке ранее нарисованного контура, или при рисовании фигуры с заливкой. Этих команд много.