PASCAL配列（配列内の共通の値を選択して変数に挿入する）

Question

注：これは宿題ではありません。ここで与えられた質問に対して答えは欲しくないのですが、すべてが明確になるように与えられています。私が英語で説明するのは難しいです。私を許して、私が尋ねるものを理解しようとしてください。

これは私のSisters ICT Exam Paperの質問です。私は答えを見つけるために私の助けを求めましたが、私はごくわずかなTurbo Pascalしか知りません。あなたが手伝っていただければ幸いです。どのように多くの一般的な値が配列内にあるかを計算し、それらを変数に入れる方法。 ここに質問があります。アレイS性別 （8） - - 数Nの配列Yの市民ステータス

要素 - アレイP（8）の従業員 の出生の年 - アレイT（8）で

生年従業員N数Nを持つ配列Sの 要素の性別 - - 従業員N数Nを持つ配列Pの 要素の従業員N

P（N）= 0の市民ステータス、女性従業員 P（N）= 1 、男性従業員

S（N）= 0、シングル従業員 S（N）= 1、既婚従業員

検索 K =年齢で女性従業員数55女性の/総数は私が尋ねると、共通の合計を取得する方法100

です* （例えば、配列= [1,0,0,1,1]の場合は2 0だけです）を変数に追加します。

おかげでアドバンス

Answer 1

に私はパスカルでブックをダウンロードして、今までそれを読むと、少なくとも少しそれを考え出した...私はそれが他の誰かを助けるかもしれない投稿。 それはこのように書き、それは間違っている可能性がありますが、[ヘルプ/オン話題]からある程度

Program Emp_Details(input, output); 
uses crt; 

var 
Y: Array[1..8] of integer; 
P: Array[1..8] of integer; 
S: Array[1..8] of integer; 

I: integer; 
K: real; 

YearCheck: integer; 
FemaleCount: integer; 

begin 
clrscr; 
For I:= 1 to 8 Do 
begin 
     Write('Please enter Year of Birth: '); 
     Readln(Y[I]); 

     Write('Please Enter Gender: '); 
     Readln(P[I]); 

     if(P[I] = 0) then 
      FemaleCount := FemaleCount + 1; 


     Write('Please Enter Civil Status: '); 
     Readln(S[I]); 

     if(Y[I] = 1961) then 
     if(P[I] = 0) then 
      YearCheck := YearCheck + 1; 

end; 

K := (YearCheck/FemaleCount) * 100; 
Writeln(K); 

Readkey; 
end.