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.

Answer 2

Конечно, я могу помочь вам с этой задачей! Ниже представлена блок-схема для решения данной задачи на Паскале:

scssCopy code
┌──────────────────────────────────────────┐
│                                          │
│            Начало программы              │
│                                          │
├──────────────────────────────────────────┤
│             Инициализация                │
│  Установить счетчики холостых мужчин и   │
│     незамужних женщин в ноль            │
├──────────────────────────────────────────┤
│            Цикл по сотрудникам           │
├──────────────────────────────────────────┤
│                Если P(N) = 0             │
│                 и S(N) = 0               │
│               Увеличить счетчик           │
│          холостых мужчин на один          │
├──────────────────────────────────────────┤
│                Если P(N) = 1             │
│                 и S(N) = 0               │
│               Увеличить счетчик           │
│         незамужних женщин на один         │
├──────────────────────────────────────────┤
│         Перейти к следующему сотруднику   │
├──────────────────────────────────────────┤
│          Конец цикла по сотрудникам      │
├──────────────────────────────────────────┤
│           Вывести результаты            │
│   Вывести количество холостых мужчин и   │
│     количество незамужних женщин         │
├──────────────────────────────────────────┤
│               Конец программы            │
└──────────────────────────────────────────┘

Это базовая блок-схема для решения задачи. Вы можете реализовать ее в своем коде на Паскале, используя циклы и условные операторы.