в одномерном массиве вычислить количество отрицательных элементов, меньше чем - 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.

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