Провести анализ работы отдела фирмы, состоящего из "n" лабораторий, в которых работают по "m" сотрудников.
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.

ЗАДАЧА:
Определить количество сотрудников отдела, записанных под номером 2 и 4 в своих лабораториях и получающих зарплату более 2500 рублей. Найти общее количество этих сотрудников (оформить подпрограммой - функцией)

Uses CRT;
Const n=4; m=5;
Var A:Array [1..n,1..m] Of Integer;
kolsotrudnikov2,kolsotrudnikov4,i,j:Integer;

Procedure PRandom;
Begin
For i:=1 To n Do
For j:=1 To m Do
ReadLn(A[i,j]);
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
ClrScr;
PRandom;
kolsotrudnikov2:=0; kolsotrudnikov4:=0;
ClrScr;
WriteLn('Под номером 2: ',FFF);
WriteLn('Под номером 4: ',FFF2);
WriteLn('Общее количество: ',FFF+FFF2);
End.

http://forum.vingrad.ru/index.php?showtopic=90879