Паскаль

avatar KeliChan

1375

25

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

И так, вот я сделал рабочую версию, но не знаю как сделать подобное
Спойлер: "Вариант первый без дат."

const n=100; m=2;
var ppl: array [1..n, 1..m] of integer;
i,j: integer;
ov, kv: real;

begin
kv :=0;
ov :=0;
for i:=1 to n do
begin
for j:=1 to m do
ppl[i,j]:=random(0, 1);
ppl[i,j]:=random(18, 60);
end;

for i:=1 to n do
begin
for j:=1 to m do
if ppl[i,j]=1 then
begin
kv:=kv+1;
ov:=ov + ppl[i,2];
end
end;
writeln('Всего женщин: ',kv);
writeln('Их средний возраст: ',ov/kv:3:2, ' лет');
end.


Спойлер: "Код №2 с датами"


const
n = 10;

var
a, b, s: array [1..n] of integer;
summ, count, i: integer;
avg: real;

p: char;
{p - пол}
u: char;
{u - семейное положение}

begin
randomize;

writeln('Генерируем сотрудников');
for i := 1 to n do
begin
a := random(1960, 1997);
b := random(0, 1); {0 - М, 1 - Ж}
s := random(2, 3); {Х - М, 3 - Ж}
end;

writeln('Выводим сотрудников');
for i := 1 to n do
begin
if b = 0 then
p := 'М'
else
p := 'Ж';

begin
if s = 0 then
u := 'Х'
else
u := 'Ж';

writeln(i:4, ') Год рождения: ', a, ', Возраст: ', 2015 - a, ', Пол: ', p);
end;
writeln(i:4, ') Семейное положение: ' , u);
end;
writeln
end.



Вариант №2


Вариант №1


Суть еще раз повторю, блок массив А - Даты работников 100 шт (1945-1994) Блок массив Б 100 штук = (М/Ж)
Как сделать что-то конкретное что бы например мне из 100 работников из 60 рабочих баб выдалало средний возраст.
Или так и будет рандом выдавать?
Кто хочет проверит скрипты, вот в онлайне
http://pascalabc.net/WDE/
Копируйте вставляйте