Объяснение:
ЗД графика
Растровая
векторная
unit math;
var
d,m:array[1..20] of integer;
sr:real;
kol,s:integer;
Begin
for i:=1 to 20 do begin
d[i]:=RandomRange(140,180);
writeln('Рост ',i,'-ой девочки =',d[i],' см');
m[i]:=RandomRange(140,190);
writeln('Рост ',i,'-го мальчика= ',m[i],' см');
end;
s:=0;sr:=0;kol:=0;
for i:=1 to 20 do s:=s+m[i];
sr:=s/20;
writeln('Средний рост мальчиков= ',sr,' см');
for i:=1 to 20 do
if d[i]>sr then kol:=kol+1;
writeln('Колличество девочек превышающий средний рост мальчиков= ',kol);
End.
Вроде растровая и векторная
Объяснение: