Помогите с задачкой плиз. Очень нужно
Провести анализ работы отдела фирмы, состоящего из "n" лабораторий, в которых работают по "m" сотрудников.
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.
ЗАДАЧА:
Определить количество сотрудников 1-й и 3-й лабораторий, получающих зарплату менее 2000 рублей. Найти общее количество этих сотрудников
задачку нужно оформить подпрограммой процедурой. 
Я кое что написал, почемуто не работет
помогите найти ошибку
| Код |
Uses crt;
VAR
a:array[1..10, 1..20] of integer;
i,j,m,n,lab2, lab4, S,S11: integer;
PROCEDURE xxx;
var
lab21,lab41,S11:integer;
BEGIN
S11:= lab21+lab41;
END;
begin
WRITELN ('Введите количество лабораторий и сотрудников n, m');
READ (n,m);
WRITELN ('Введите зарплату сотрудников');
for i :=1 to n do
for j :=1 to m do
READLN (A[i,j]);
lab2:= 0;
lab4:= 0;
for i :=1 to n do
for j :=1 to m do
begin
if A[2,j]>2000 then lab2:= lab2+1;
if A[4,j]>2000 then lab4:= lab4+1;
end;
xxx;
WRITeLN ('Количество сотрудников второй лаборатории',lab2);
WRITeLN ('Количество сотрудников четвёртой лаборатории', lab4);
WRITeLN ('Общее количество сотрудников', S11);
Readkey;
END.
|
M
Fixin | Оформляй в код. Кнопка такая есть. |
|