В паскаль(цикл)

Последовательно вводится N целых чисел.найти количество отрицательных среди них

Ответы:

var m:array[1..30] of longint,

schet1,i:longint,

begin

for i:=1 to 30 do

begin

read(m[i]),

if m[i]&lt,0 then 

 inc(schet1),

end,

writeln(schet1),

end.



Ответ: если я не ошибаюсь, это N деленное на 2