Question

помогите пожалуйстааааааааа.

В автоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.

В массиве 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 женат (замужем)

ОПРЕДЕЛИТЬ: количество холостых мужчин и количество незамужних женщин.
Сделать в Паскале с блок схемой( Желательно)

Answer 1

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.