помогите пожалуйстааааааааа.
В автоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.
В массиве 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 женат (замужем)
ОПРЕДЕЛИТЬ: количество холостых мужчин и количество незамужних женщин.
Сделать в Паскале с блок схемой( Желательно)
BobbyFresnel:
Третий раз пишете и все никак не укажате, какой язык требуется и что именно написать?
Паскаль, с блок схемой
И это надо было угадать?
Рисовать я, конечно, ничего не буду, это пусть кто-то другой делает. Но Вы сильно облегчите любям эизнь, если напишете, что именно надо на паскале - программу целиком, с описанием данных и их вводом? Если так, то зачем массив Y, который в задании не используется?
по идеи нужно программу целиком, с полным описанием
Ага. Ну... ждите... может, какая рыбка клюнет ))
можно просто программу целиком
Пот на будущее и пишите, что блок-схему ЖЕЛАТЕЛЬНО. А сейчас у Вас указано обязательное требование. И снова, зачем массив Y, который в задании не используется?
он не нужен
Ответы
Ответ дал:
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.
Приложения:
Похожие вопросы
1 год назад
1 год назад
2 года назад
8 лет назад