помогите пожалуйстааааааааа.
В автоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.
В массиве Y(8) содержаться года рождения сотрудников,
В массиве P(8) – сведения о поле,
В массиве S(8) – сведения о семейном положении.
Элемент массива Y с номером N – год рождения сотрудника N,
Элемент массива P c номером N – сведения о поле сотрудника N,
Элемент массива S c номером N – сведения о семейном положении сотрудника N.
P(N) = 0, сотрудник N женского пола
P(N) = 1, сотрудник N мужского пола
S(N) = 0, сотрудник N холост (не замужем)
S(N) =1, сотрудник N женат (замужем)
ОПРЕДЕЛИТЬ: количество холостых мужчин и количество незамужних женщин.
Сделать в Паскале с блок схемой( Желательно)
В автоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.
В массиве Y(8) содержаться года рождения сотрудников,
В массиве P(8) – сведения о поле,
В массиве S(8) – сведения о семейном положении.
Элемент массива Y с номером N – год рождения сотрудника N,
Элемент массива P c номером N – сведения о поле сотрудника N,
Элемент массива S c номером N – сведения о семейном положении сотрудника N.
P(N) = 0, сотрудник N женского пола
P(N) = 1, сотрудник N мужского пола
S(N) = 0, сотрудник N холост (не замужем)
S(N) =1, сотрудник N женат (замужем)
ОПРЕДЕЛИТЬ: количество холостых мужчин и количество незамужних женщин.
Сделать в Паскале с блок схемой( Желательно)
Answers & Comments
begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.