Провести анализ работы отдела фирмы, состоящего из "n" лабораторий, в которых работают по "m" сотрудников.
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.
ЗАДАЧА:
Определить количество сотрудников отдела, записанных под номером 2 и 4 в своих лабораториях и получающих зарплату более 2500 рублей. Найти общее количество этих сотрудников (оформить подпрограммой - функцией)
| Код |
Const n=4; m=5;
Var
A:Array [1..n,1..m] Of Integer;
kolsotrudnikov2, kolsotrudnikov4, i, j: Integer;
Procedure PRandom;
Begin
Randomize;
For i:=1 To n Do
For j:=1 To m Do
A[i,j]:=Random(1000)+2000;
End;
Function FFF:Integer;
Begin
For i:=1 To n Do
If A[i,2]>2500 Then Inc(kolsotrudnikov2);
FFF:=kolsotrudnikov2;
End;
Function FFF2:Integer;
Begin
For i:=1 To n Do
If A[i,4]>2500 Then Inc(kolsotrudnikov4);
FFF2:=kolsotrudnikov4;
End;
Begin
PRandom;
kolsotrudnikov2:=0; kolsotrudnikov4:=0;
WriteLn('Под номером 2: ',FFF);
WriteLn('Под номером 4: ',FFF2);
WriteLn('Общее количество: ',FFF+FFF2);
End. |
прога не просит ввести зарплату работников чтобы заполнить массив, без этого действия невозможно вычислить кто получал больше 2500 |