в одномерном массиве вычислить количество отрицательных элементов, меньше  чем -k

 

const
N=50;
var
arr: array [1 .. N] of integer;
i,tc,c: integer;
begin
c:=0; {otricatel'nie elementi}
writeln('Äëèíà ìàññèâà?');
readln(tc);
{vvod massiva}
for i:=1 to tc do
readln(arr[i]);

for i:=1 to tc do
if arr[i]<0 then
c:=c+1;
writeln('Otricatel''nih elementov=',c);
end.

должно работать