в одномерном массиве...

в одномерном массиве вычислить количество отрицательных элементов, меньше чем -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);
for i:=1 to tc do
if arr<0 then
c:=c+1;
writeln('Otricatel''nih elementov=',c);
end.
 
должно работать