const
n = 100;
var
a, b: array [1..n] of integer;
summ, count, i: integer;
avg: real;
{count - количество женшин
summ - общий возраст женшин
avg - средний возраст женшин}
p: char;
{p - пол}
begin
randomize;
writeln('Генерируем сотрудников');
for i := 1 to n do
begin
a := random(1976, 1997);
b := random(0, 1); {0 - М, 1 - Ж}
end;
writeln('Выводим сотрудников');
for i := 1 to n do
begin
if b = 0 then
p := 'Ж'
else
p := 'М';
writeln(i:4, ') Год рождения: ', a, ', Возраст: ', 2015 - a, ', Пол: ', p);
end;
writeln;
writeln('Определяем средний возраст женшин');
summ := 0;
count := 0;
for i := 1 to n do
begin
if b = 0 then
begin
count := count + 1;
summ := summ + 2015 - a;
end;
end;
if count = 0 then
writeln('В компании нету женшин')
else
begin
avg := summ / count;
writeln('Средний возраст = ', avg:4:2);
end;
end.